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rhe  primary  purpose  of  this  report  is  to  document  the  Hewlett-Packard  (HP) 

9820A  calculator  programs  used  to  plot  data  generated  by  the  HIS-6180  digital 
computing  system.  This  was  done  because  on-line  plotting  at  the  central  computer 
is  Impossible  and  large  volumes  of  data  cannot  be  digested  efficiently  by  the 
engineers  concerned. 


luickly  plotted  data  often  allows  an  engineer  to  narrow  down  the  number  of  com- 
uter  runs  by  bounding  a specific  problem  since  a pic 
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words.  For  example,  trajectory  curves  (an  antenna  pattern  or  waveform  response 
to  a target)  are  more  than  long  tables  of  numerical  listings.  The  objective  of 
the  plotting  capability  outlined  In  this  report  Is  to  free  the  engineer  for  more 
analysis  work  and  cut  the  required  number  of  computer  runs  by  bounding  the 
problem  in  a timely  manner.  This  will  result  in  more  effective  use  of  the 
engineer  at  a cost  savings  to  the  Air  Force. 


In  addition,  this  report  will  serve  as  a supplement  to  the  HP  manuals  detailing 
the  use  of  the  HP  paper  tape  and  punched  card  readers. 
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PREFACE 


This  report  provides  the  computer  programs  used  to  plot  virtually 
any  data  of  an  (X,Y)  nature.  These  programs  are  written  in 
algebraic  language  for  a Hewlett-Packard  9820A  programmable  calcu- 
lator. The  data  must  be  in  USA  Standard  Code  for  Information 
Interchange  (ASCII)  format  in  order  to  be  handled  by  the  HP  9820A. 
The  data  generated  by  the  RADC  HIS-6180  is  in  either  binary  or  a 
Binary  Coded  Decimal  (BCD)  format  and  must  be  converted  to  ASCII 
format  before  being  plotted.  The  procedure  for  obtaining  the  data 
from  the  HIS-6180  in  the  correct  format  and  plotting  will  be 
explained  and  illustrated. 
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COMPUTER  PROGRAMS 


I.  Introduction 

These  plot  programs  were  developed  in  support  of  the  Space 
Surveillance  Software  Support  contract.  They  have  also  been  used 
in  the  SEEK  SAIL  study,  the  Endo  Exo-Atmospheric  Modeling  contract*, 
the  Space  Defense  System  (SDS)  Radar  Study,  and  the  Interactive 
Radar  Simulator  contract. 

The  data  generated  under  each  of  these  studies  and  contracts 
listed  above,  although  extremely  varied,  can  be  taken  from  perman- 
ent disc  file  storage  on  the  HIS  6180  and  a plot  generated  using 
virtually  the  same  procedure  for  each  case.  Slight  variations  will 
occur  in  scaling  the  data  and  in  labeling  the  plots  in  the  Hewlett- 
Packard  (HP)  9820A  calculator.  The  foregoing  procedure  will  be 
described  and  illustrated  such  that  the  user  may  generate  the  plots 
he  requires  for  his  particular  application. 

This  report  will  also  serve  as  a supplemental  manual  to  the 
HP  manuals  detailing  the  use  of  the  HP  paper  tape  and  punched  card 
readers  for  data  input  to  the  HP  9820A  calculator. 


* 


See  Appendix  D 
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II.  HP  9820A  Calculator  and  Peripherals 

The  plot  prograa  was  implemented  on  the  HP  9820A  calculator 
located  at  RADC/OCSA  in  Building  106. 

Peripherals  include  an  HP  9862A  plotter,  HP  9869A  card  reader, 

HP  2748B  paper  tape  reader,  and  11223A  cassette  memory  units. 

Due  to  the  potentially  large  amounts  of  data  and  the  relatively 
limited  memory  of  the  calculator,  the  cassette  tapes  are  used  as 
a temporary  store  for  the  data  before  plotting.  The  tape  reader 
and  card  reader  are  the  input  devices  by  which  data  is  introduced 
into  the  "HP  system"  described  above. 
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III.  Procedure  Used  to  Transfer  Data  to  Punched  Cards 


The  program  used  to  generate  data  must  also  store  the  data  on 
a PRMFL  (permanent  file).  The  format  used  to  store  the  data  on  PRMFL 
must  be  the  same  as  the  data  points  are  to  appear  on  the  punched  card. 
One  card  has  a field  of  80  possible  digits  for  punching  data,  and 
the  card  reader  will  recognize  a space  or  comma  as  a delimiter  between 
data  ooints*.  One  example  of  the  way  to  store  data  on  a PRMFL  is 
shown  below: 

WRITE  (09,1000)  (DATA  (I),  I * 1,5) 

1000  FORMAT  (2X,  F10.6,  2X,  F10.6.2X,  F10.6,  2X,  F10.6,  2X,  F10.6) 

The  09  in  the  WRITE  statement  is  the  number  of  the  PRMFL  where 
data  is  stored  and  the  1000  is  the  number  of  the  FORMAT  statement  which 
determines  the  format  of  stored  data.  The  data  is  stored  in  blocks  of 


5 and  corresponds  to  the  card  columns  shown  below. 
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FIGURE  1.  Sample  Data  Fields  on  Computer  Card 


* The  card  reader  will  treat  any  character  as  a data  delimiter  with 
the  following  exceptions : 1)  a digit  from  0 to  9,  2)  a plus  or  minus 
sign,  3)  an  exponential  (5E  - 05) 
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To  transfer  stored  data  from  PRMFL  to  punched  cards,  the  follow- 
ing time-sharing  system  (TSS)  procedure  can  be  used: 

SYSTEM  7CARDIN 
OLD  OR  NEW  - N 
READY 
•BCDASC 

INPUT  FILES  BCDFL1IJAM;* 

LINE  NUMBERS  ® 

TAB  CHARACTERS  AND  SETTINGS  (§) 

*EDIT 

- P;10 

001229457545E  01 
0.459417272E  01 
0.706554240E  01 
0.965192258E  01 
0. 122055005E  02 
0. 144S59367E  02 
0. 160495934E  02 
0. 167047484E  02 
0 . 163838296E  02 
0. 152977045E  02 

- DONE 
•BPUNCH  * 

$ IDENT  USERID,  USERS  NAME,  ACCOUNT  NO.,  REMARKS 
LABELS  (R) 

TAB  CHARACTERS  AND  SETTINGS (R) 

SNUMB  # 2985T 

User  responses  are  underlined  and  (R)signifies  carriage  return. 

BCDASC  converts  the  data  to  ASCII  format  so  that  the  teletype 
can  manipulate  it.  BCDFL1$JAM;*  is  the  PRMFL  name  with  password  and 
calls  for  the  ASCII  converted  data  to  be  stored  on  the  current  file(*). 
In  the  EDIT  mode  the  first  ten  lines  of  data  have  been  printed  out 
as  a check  to  ensure  that  the  data  is  correct.  This  is  optional. 
BPUNCH*  causes  data  stored  on  the  current  file  (*)  to  be  punched  on 
cards. 
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IV.  Procedures  Used  to  Transfer  Data  to  Punched  Paper  Tape 

Extracting  data  fro*  the  HIS-6180  to  paper  tape  is  similar  to 
the  process  for  transferring  data  to  punched  cards.  The  program 
generating  the  data  must  also  store  it  on  PRMFL  using  the  same 
procedure  as  shown  for  cards  in  the  previous  section.  The  WRITE 
and  FORMAT  statements  for  storing  data  in  BCD  code  on  PPMFL  are 
identical . 

There  is  no  way  of  obtaining  punched  paper  tape  directly  (on 
line)  from  the  HIS-6180.  It  is  necessary  to  utilize  a teletype- 
writer interfaced  with  a paper  tape  punch.  The  one  currently  used 
is  the  Model  ASR  33  Teletype. 

Once  the  data  is  stored  on  PRMFL  in  the  desired  format,  the 
data  can  be  transferred  to  paper  tape  according  to  the  following: 
SYSTEM?  CARDIN 
OLD  OR  NEW  - NEW 
READY 

* BCDASC 

INPUT  FILES?  FILE  NAfrg  6 PASSWD;  ♦ 

LINE  NUMBERS  (g) 

TAP  CHARACTERS  AND  SETTINGS  (g) 

* LIST 

The  responses  typed  in  by  the  user  are  underlined,  and  (R) signi- 
fies a carriage  return  (RETURN  key) . Once  the  word  LIST  has  been 
typed  in,  hit  the  RETURN  key  and  simultaneously  turn  on  the  tape  punch. 

The  teletypewriter  will  print  out  a hard  copy  and  will 
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simultaneously  punch  out  the  data  onto  a paper  tape.  This  data  is 
in  ASCII  code. 
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V.  Generalized  Plot  Program  • Data  Input  via  Punched  Cards 

The  plot  program  will  be  explained  using  punched  card  data  for 
the  following  reasons: 

1.  Punched  cards  have  been  used  more  extensively 

2.  The  time  required  to  generate  the  data  in  a form  compatible 
with  the  "HP  system"  can  be  excessive  for  paper  tape  vs  cards. 

3.  When  large  amounts  of  data  are  involved,  the  amount  of 
paper  tape  becomes  unwieldy;  i.e.,  the  paper  tape  becomes  extremely 
long.  The  feed  mechanism  on  the  HP  2748B  paper  tape  reader  cannot 
automatically  draw  the  paper  tape  from  the  feed  tray  through  the 
reader,  and  the  operator  must  manually  feed  the  tape  through  the 
reader.  Large  volumes  of  data  are  of  the  order  of  500-700  data 
points  and  approximately  6 to  10  minutes  are  required  to  punch  this 
data  for  each  plot. 

A listing  of  the  computer  program  as  implemented  on  the  HP  9820A 
calculator  follows. 

The  inputs  required  by  the  program  are  shown  in  Table  1.  The 
output  is  primarily  the  plot  and  several  examples  will  be  shown. 

Also,  each  register  used  in  the  program  is  listed  in  Table  2 
with  an  explanation  of  the  value  stored  in  each. 
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PRT  "MRNLEY"  j FKD  4 [ 

ENT  "F'NUMB" , R48,  "SELECT  CODE"  > Y>  "DFILE"  t H L 
IF  R48=l ? GTO  +4  [ 

FMT  " D " 5 WRT  25FMT  *5  RED  2»  R7»  R<5»  R0»  R13>  R41 5 PRT  R 7 < 


R6 » R0  ? R 1 3 j R4 1 ? SF'C  2 l 
< R 4 1 — 1 JR13+R0  TO  R 1 [ 

SSC  Y 5 RCF  R t RO > R4 1 ! PRT  R0 « R 1 » R6 » R 7* F 1 J » R4 1 5 SPC  2 • G 
TO  +2  [ 


SSC  Y5LDF  fin  R05  PRT  R0 » PI  * R6»  R7 > R41 5 SPC  2 c 

ENT  "XLENGTH“»R15j "YLENGTH" ,R16  l 

ENT  " RBSC I SSR  USED " - R 1 7 » " ORD I NRTE  USED " > R 1 3 E 

SCL  P » R 1 5 ? 0 » R 1 6 5 RXE  1, 1> .5> .5  E 

R15/R17  TO  R425R16/R18  TO  R43  t 

2R17  TO  R 1 1 ? 2R 18  TO  R12  t 

ENT  " KM I N " i R20 » " KMRK " » R2 1 j " YM I N " » R22 » " YMRX " > R23  L 

RE'S  <R21-R20)/R11  TO  R35P20+R3  TO  R45  1 TO  R40  [ 

F:21-R42(  R21-R20)  TO  R5  C 

SCL  R 5 j R 2 1 > 0 « R 1 6 E 

FKD  0?  LTR  R4 » . 4 > 222! PLT  R4  [ 

1+R40  TO  R405 IF  R40  # R11+15R4+R3  TO  R45GTO  -1  t 

BBS  R23-R22  R L2  TO  R85R22+R8  TO  R"4?  1 TO  P40  C 

P23-R43'-  R23--R22)  TO  R10  C 

SCL  0 * R 1 5 > R 1 0 j R 2 3 C 

FKD  25 LTR  . S > RS i ?.  1 1 " PLT  R9  [ 

1 + R 4 O T 0 P 4 O 5 I F R 4 U # R 125  R 9 + R 3 T 0 R 9 5 G f 0 - 1 t 


FIGURE  2.  GENERALIZED  PLOT  PROGRAM  - DATA  INPUT  VIA  PUNCHED  CARDS 
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23 : ENT  " NO . F I LES " - R2 1 " RTS/ FILE" j R40j " SF ILE" - R t 

24:  1 TO  C 5 0 TO  B C 

25:  5 I NT  <R41/5>  TO  P4550  TO  R4?J IF  R2=1!GT0  "2"  I 

26:  IF  R4S=1 5 SSC  Y5LDF  fi»R505 <R2-1 >R40  TO  R475  GTO  +19  I 

27:  FMT  "C"5WRT  2 t 

28 : FMT  * j RED  2 > R < 50+B  > j R < 5 1 +B  > , R < 52+B  ) , R < 53+B  > j R 54  +B 

) [ 

29:  B+5  TO  B5IF  R40-1>B?GTO  -2  [ 

30:  R47+R40  TO  R47  [ 

31:  SSC  Y C 

32:  RCF  fi  » R50 j R < R40+49 > 5 PRT  fi  C 

33:  IF  R47=  < R2- 1 > R40 5 GT 0 "2"  t 

34:  fl+1  TO  R ? 1 +C  TO  C C 

35:  IF  C # R2+150  TO  BiGTO  -8  [ 

36:  "2"5 IF  R4 1/5=  I NT  <R41/5)S R41-R47  TO  R46  5 GTO  +3  C 

37:  R45+5  TO  R455R45-R47  TO  R46! IF  R2=l 50  TO  B5GTO  +2  C 

38:  0 TO  B ? fi  + 1 TO  fi  [ 

39:  IF  R48=l 5 GTO  +5  t 

40:  FMT  "C" 5 WRT  2 C 

41:  FMT  *5  RE D 2 > R < 50  + B > ? R < 5 1 +B  > ? R ( 52+B  > j R < 53+B  > »R<54< B 

> [ 

42:  B+5  TO  B 5 I F R 4 6 - 1 ) B ! G T U - 2 [ 

43:  SSC  Y5PRT  fljRCF  fi» R50 j RCR46+49)  C 

44:  R-R2+ 1 TO  Fiji  TO  C5SPC  25  PRT  fi!  LDF  H-  R50  C 

45:  0 TO  Z5  R41-R47  TO  R47! PRT  fl  [ 

FIGURE  2.  GENERALIZED  PLOT  PROGRAM  - DATA  INPITT  VIA  PUNCHED  CARDS  (CONT'D) 
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46:  SCL  R5jR21>R10»R23  C 

47:  PLT  R0jR(50+2>  t 

48:  IF  C=R2*  GTO  +3  C 

49:  IF  R40-1  # 2= 1 5 R0+R 1 3 TO  R0JZ+1  TO  Z5GTO  -2  [ 

50:  fl+1  TO  R5C+1  TO  C? IF  C <=  R25R0+R13  TO  R050  TO  Z?PRT  RJLDF  H 

» R505  GTO  -3  t 

51:  IF  R47-1  # Z=15R0+R13  TO  R0JZ+1  TO  25 GTO  “4  C 

52:  F'RT  "END  OF  DOT  A"  I 

53:  END  C 


FIGURE  2.  GENERALIZED  PLOT  PROGRAM  - DATA  INPUT  VIA  PUNCHED  CARDS  (CONT'D) 
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INPUTS 


Variable 


Name 

Register 

Meaning 

P NUMB 

R48 

Determine  where  data  is  stored.  Set 
to  1 if  on  cassette  tapes,  or  0 if  on 
cards  or  paper  tape 

SELECT  CODE 

Y 

Selects  proper  cassette  Unit(s) 

DFILE 

A 

File  where  minimum  and  maximum  X and  Y 
values  of  data,  X increment,  and 
number  of  pts  key  in  file  number 

Xmin* 

RO 

Minimum  X (independent  variable)  value 

Ymin* 

R6 

Minimum  Y value 

Ymax* 

R7 

Maximum  Y value 

Xincrement* 

R12 

Increment  between  data  points  of 
independent  variable 

No  pts  * 

R41 

Total  number  points  to  be  plotted 

XLENGTH 

R15 

The  total  horizontal  length  of  the 
plotting  surface 

YLENGTH 

R16 

The  total  vertical  length  of  the 
plotting  surface 

ABSCISSA  USED 

R17 

The  portion  of  the  abscissa  used  for 
plotting,  i.e.,  excluding  portion  used 
of  labeling  the  axis 

ORDINATE  USED 

R18 

The  portion  of  the  ordinate  used  for 
plotting,  i.e.,  excluding  portion  used 
for  labeling  the  axis 

INPUTS  FOR 

TABLE  1 

GENERALIZED  PLOT  PROGRAM 

* These  data  nay  be  calculated  by  the  program  generating  the  data  and  are 
punched  out  on  the  first  card  or  they  may  be  keyed  in  by  the  operator  using 
an  ENT  statement.  However,  if  these  data  are  not  calculated  by  the  gener- 
ating program  and  it  is  inefficient  to  find  them  from  long  numerical  list- 
ings, it  is  necessary  to  key  in  only  the  minimum  value  and  the  increment 
between  values  of  the  independent  variable  and  the  number  of  points. 


a 
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INPUTS 


Variable 


Naae 

Register 

Meaning 

XMIN 

R20 

Minimum  value  of  independent  variable 
for  scaling  and  labeling  the  X-axis 

XMAX 

R21 

Maximum  value  of  independent  variable 
for  scaling  and  labeling  the  X-axis 

Y MIN 

R22 

Minimum  value  of  dependent  variable  for 
scaling  and  labeling  the  Y-axis 

VAX 

R23 

Maximum  value  of  dependent  variable 
for  scaling  and  labeling  the  Y-ax'is 

NO.  FILES 

R2 

No.  of  data  files 

P TS/FILE 

R40 

No.  of  data  points  per  file 

SFILE 

A 

File  number  of  first  data  file 

TABLE  1 (CONT'D) 
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REGISTER  TABLE 

Register 

Value  Store  d 

RO 

Minimum  value  of  independent  variable 

R1 

Maximum  value  of  independent  variable 

R 2 

No.  of  files  of  stored  data 

R3 

Increment  between  labels  on  abscissa 

R4 

Value  of  each  label  on  abscissa 

R 5 

Xmin  for  scale  of  plotting  surface  used  for  plotting,  i.e., 
excluding  portion  used  for  labeling  axes 

R6 

Minimum  value  of  dependent  variable 

R 7 

Maximum  value  of  dependent  variable 

R 8 

Increment  between  labels  on  ordinate 

R9 

Value  of  each  label  on  ordinate 

RIO 

Ymin  for  scale  of  plotting  surface  used  for  plotting,  i.e., 
excluding  portion  used  for  labeling  axes 

R 11 

No.  of  labels  on  abscissa 

ft  12 

No.  of  labels  on  ordinate 

R13 

Increment  between  consecutive  values  of  independent 
variable 

R14 

Not  used 

R15 

Length  of  plotting  surface  in  X dimension,  i.e,  no.  major 
divisions 

R16 

Length  of  plotting  surface  in  Y dimension,  i.e.,  no.  of 
major  divisions 

TABLE  2 

REGISTER  CROSS  REFERENCE  CHART  FOR  GENERALIZED  PLOT  PROGRAM 

REGISTER  TABLE 


Register 

R17 

R18 

R 19 
R20 
R2I 
R22 
R23 

R24-R39 

R40 

R4I 

R42 

R43 

R44 

R4S 

R46 

R47 

R 48 

R 50  ... 

A 


Value  Stored 


Portion  of  plotting  surface  in  x dimension  used  for 
plotting,  i.e., excluding  portion  used  for  labeling  axes 

Portion  of  plotting  surface  in  Y dimension  used  for 
plotting,  i.e.,  excluding  portion  used  for  labeling  axes 

Not  used 

Minimum  value  of  labels  on  abscissa  (XMIN) 

Maximum  value  of  labels  on  abscissa  (XMAX) 

Ministum  value  of  labels  on  ordinate  (YMIN) 

Maximum  value  of  labels  on  ordinate  (YMAX) 

Not  used 

Points  per  file 

Total  number  of  points 

Ratio  of  total  length  of  abscissa  to  portion  used  for 
plotting  - R15/R17 

Ratio  of  total  length  of  ordinate  to  portion  used  for 
plotting  - R16/R18 

Not  used 

No.  of  complete  records  of  valid  data  (5  per  record) 

No.  of  points  in  the  last  file 

Counter  for  number  of  points  recorded  on  a file  basis 
(i.e.,  number  files  X points/file) 

Flag  used  to  determine  where  data  stored 

Data  Storage 

File  Number 


TABLE  2 

REGISTER  CROSS  REFERENCE  CHART  FOR  GENERALIZED  PLOT  PROGRAM  (CONT’D) 


REGISTER  TABLE 

Register Value  Stored 

B Register  Counter 

C File  Counter 

X Not  used 

Y Select  Code 

Z Register  counter 

TABLE  2 

REGISTER  CROSS  REFERENCE  CHART  FOR  GENERALIZED  PLOT  PROGRAM  (CONT'D) 


A detailed  flow  chart  showing  each  statement  with  an  explanation 
of  each  follows,  but  a general  description  of  program  operation  will  be 


helpful . 

Program  steps  0-6  determine  where  the  input  data  for  plotting  is 
stored  and  which  cassette  unit(s)  are  used.  The  input  data  (i.e.,  min. 
and  max.  values,  increment  between  values  of  independent  variable,  and 
total  number  of  points)  is  recorded  into  a cassette  file  and 
each  value  is  printed  out  to  let  the  operator  know  where  to  scale  the 
plot. 

Statements  8-12  determine  the  length  of  the  axes,  the  number  of 
tick  marks  and  draw  in  the  intersecting  axes. 

Program  steps  13  - 23  calculate  the  scales  of  the  X and  Y axes 
respectively  and  the  number  of  labels  on  each  axis,  and  write  the  labels  on 
each  axis. 

Statements  24-43  read  the  data  from  punched  cards  and  record  it 
onto  cassette  tapes.  The  program  determines  the  number  of  cards  to  be 
read,  the  nuatber  of  points  to  be  stored  and  the  proper  cassette  file  for 
data  storage.  There  must  be  five  data  points  per  card  in  this  version 
of  the  program. 

Statements  44-52  reload  the  data  stored  on  cassette  tapes  back 
into  the  calculator  from  the  cassette  tapes,  beginning  with  the  first 
file  stored.  The  data  is  then  automatically  scaled  and  plotted. 
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FXD  4 


SPECIFY  ACCURACY  OF  POINTED 
OR  DISPLAY  NUMBERS.  FOUR 
DIGITS  AFTEP  DECIMAL  PT. 


/ENT  "PNUMB" , \ 
(R4R.  "SELECT  CODE",/ 
\v-  "DFTLE" , A / 


rF  R4fl 


(GTO+5 


KEYED  IN  RV  OPEPATOR. 

PNUMB  = 1 FOR  DATA  ON  CAPDS 
OR  PAPER  TRPE  AND  ANV  OTHER 
NUMBER  IF  ON  CASSETTE  TAPES. 
SELECT  CODE  SPECIFIES 
CASSETTE  UNIT  USED.  DFTLE 
IS  FTLE  CONTAINING  PLOT  DATA, 
i.e.  , # PTS. , XMTN , ETC. 

TEST  PNUMB  TO  DETERMINE 
WHERE  DATA  IS. 


''fMT  D" ; WRT  2 ,*  FMT  *; 
vRED  2,  R7 , R6 , RO.  R13.  R4! 


INSTRUCT  CARD  READER  TO  READ 
ONE  CARD  AND  STORE  THE  DATA 
IN  THE  REGISTERS  SHOWN. 


>RT  R7 . R6  , RO , R13,  R4IA 


PRINT  OUT  DATA  ON  FIRST  CARD. 
YMAX,  YMIN , XMTN,  XINC,  NO. 
PTS  . 


((P41-1)  R13  + RO  R 1 


CALCULATE  XMAX 


^SC  V;  RCF  A,  RO,  R41;  PRT  RO*  RECORD  MAX  AND  MTN  VALUES,  X 

\R1 , R6,  R7,  PI  3.  R41;  SPC  2 J INCREMENT,  AND  NO.  PTS . ONTO 

j CASSETTE  TAPES. 


'SSC  V+l;  RCF  A,  RO,  R 4 1 ; 
S SC  Y;  GTO+2 „ 


RECORD  SAME  DATA  AS  IN  ABOVE 
STEP  ON  ANOTHER  CASSETTE 
TAPE.  FOR  MAKING  DUPLICATE 
TAPE.  OPTIONAL 
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6 : 


SSC  V;  LDF  A,  RO , R41;  PRT 
RO.  Rl.  R6.  R7 . R41;  SPC  2. 


IF  PNUMB  « 1 XMIN , XMAX, 
YMIN , YMAX , XINC , AND  NO. 
PTS.  ARE  LOADED  INTO  THE 
CALCULATOR  FROM  CASSETTE 
TAPES  AND  PRINTED  OUT. 


7 : lF.m  "XLENGTH" 

>15,  "YLENGTH"  ,) 
(16 


1 


8 : /ENT  "ABSCISSA" 

USED",  R17, 

'ORDINATE  USED",/ 

(18 

,T~  , 

9 : f SCL  0,  R15 , 0,  R167\ 
\ AXE  1,  1.  .5,  .5  J 


KEY  IN  THE  DIMENSIONS  OF  THE 
PLOTTING  SURFACE. 


KEY  IN  THE  PORTION  OF  THE 
PLOTTING  SURFACE  USED,  l.e., 
EXCLUDING  THAT  PORTION  USED 
FOR  LABELING  THE  AXES. 


SCALE  PLOTTING  SURFACE  AND 
DRAW  AXES  INTERSECTING  AT 
(1,  1)  WITH  TICK  MARKS  EVERY 
HALF  DIVISION. 


G 


10:  f R15/R17— *R42 
R16/R1R— *R43 


D 


11:  ( 2R17— *Rll\ 

\2R18— >R12  J 

12:  / ENT  "XMIN" , R20 , 

( "XMAX",  »21,  "VMIN",' 
\ R22 , "YMAX",  R23 


CALCULATE  RATIO  OF  TOTAL 
LENGTH  OF  EACH  PLOTTING 
SURFACE  TO  PORTION  USED  FOR 
SCALING  PURPOSES. 


CALCULATE  THE  NUMBER  OF 
LABELS  ON  EACH  AXIS. 


KEY  IN  THE  MINIMUM  AND 
MAXIMUM  VALUES  OF  THE  LABELS 
ALONG  EACH  AXIS. 
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■ Q 


ABS  (R21-R20) /Rll— >R3 
R20+R3— »R4  1 — »R40 


5 


CALCULATE  THE  INCREMENT 
BETWEEN  LABELS  ALONG  THE 
X-AXIS.  CALCULATE  VALUE  OF 
FIRST  LABEL.  INITIALIZE  & 
LABEL  COUNTER. 
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14  ! 

15: 

16: 

17: 

17: 

18: 

19: 

20: 
2 Is 


CALCULATE  X VALUE  FOR 
SCALING  ON  HARTS  OR  X 
DIMENSION  USED. 


SCALE  PLOTTER  FOR  LARFLTNC 
X-AXIS . 


SPECTFv  (x,  V)  POSITION  AND 
THE  HEIGHT,  WIDTH  AND 
DIRECTION  (HMD)  OP  LETTERTNG 
AND  WRITE  THE  LABELS  AT 
EACH  TICK  »*ARK. 


LABEL  COUNTER  INCREMENTED. 


LABEL  COUNTER  TESTED  TO 
DETERMINE  WHETHER  ALL  TICK 
MARKS  LABELED.  IF  NOT 
INCREMENT  THE  VALUE  AND 
CONTINUE  LARELING. 


CALCULATE  INCREMENT  BETWEEN 
LABELS  ALONG  Y-AXIS. 
CALCULATE  VALUE  OP  FIRST 
LABEL.  INITIALIZE  A LABEL 
COUNTER. 


CALCULATE  MINIMUM  v-VALUF 
FOR  SEALING  ON  PASTS  OR  V 
DIMENSION  USED. 


SCALE  PLOTTER  FOR  V-*XTS 
LABELING. 

SPECIFY  (X, Y)  POSITION  AND 
HEIGHT,  WIDTH,  AND  DIRECTION 
(HWD)  OF  LETTERING.  WRITE 
THE  LABELS  ON  Y-AXIS. 
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LABEL  COUNTER  INCREMENTED. 


TEST  LABEL  COUNTER  TO  DETER 
MINE  WHETHER  ALL  TICK  MARKS 
LABELED.  IF  NOT  INCREMENT 
THE  VALUE  AND  CONTINUE 
LABEL I NO . 


KEY  IN  NUMBER  FILES  OF 
DATA,  THE  NUMBER  OF  TvrS/**TLE, 
AND  THE  STARTING  FILE  (SFTLE) 
FOR  DATA. 


INITIALIZE  A FILE  COUNTER 
AND  A REGISTER  COUNTER. 

CALCULATE  TOTAL  NUMBER  OF 
POINTS  IN  GIVEN  CARD  DECK.1 
INITIALIZE  A DATA  POINT 
COUNTER.  THE  NUMBER  5 IS 
USED  BECAUSE  5 PTS/CARD. 

TEST  WHETHER  ALL  DATA  TS 
BEING  STORED  IN  ONE  FILE.  TP 
SO  SKIP  AHEAD  TO  THE  LINE 
LABELED  "2"  AND  CONTINUE. 


TEST  WHERE  DATA  IS  STORED. 
IF  R48  - 1 DATA  IS  ON  CAS- 
SETTE TAPES  SO  SKIP  AHEAD 
AND  LOAD  PROM  CASSETTE. 


INSTRUCT  CARD  READER  TO  ®TCK 
CARDS  AND  READ  THEM  IN 
CONTINUOUS  MODE  ("C”). 

READ  ONE  CARD  AND  STORE  THE 
DATA  POINTS  IN  THE  SPECIFIED 
FILE. 


^■The  card  reader  reauire3  that  there  be  an  equal  number  of  data 
ots.  ner  card;  sometimes  the  last  card  is  filled  with  •■Junk" 
nts.  to  satisfy  this  condition. 
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32: 


RCF  A,  R50 , R (R40+49 ) ; 

PRT  A t SSC  Y+l;  RCF  A,  R50, 
R (R40+4R ) ; SRC  Y 


3 \%  ^A»l-»  A;  1+C~»C  ^ 


3 5: 


YES  

+ 1> [>W; 


GTO-8 


REGISTER  COUNTER  INCREMENTED. 


TEST  WHETHER  ENOUGH  DA^A  HAC 
BEEN  READ  TO  PILL  THE  CURRENT 
PILE. 


INCREMENT  THE  DATA  BOTNT 
COUNTER. 


CALL  APPROPRIATE  CASSETTE 
UNIT. 


RECORD  DATA  ONTO  TWO  CASSETTE 
TAPES  BEGINNING  AT  THE 
CALCULATOR  REGTSTEP  R50  UP  TO 
A REGISTER  NUMBER  CORRESPOND- 
ING TO  THE  NUMBER  OF  RTS./ 
FILE. 


TEST  WHETHER  THE  NEXT  PILE 
TO  BE  RECORDED  WTLL  BP  THE 
LAST  ONE.2 


INCREMENT  THE  FILE  NUMBER 
AND  THE  PILE  COUNTER 
RESPECTIVELV. 


TEST  THE  PTLE  COUNTER  TO 
DETERMINE  IF  THE  LAST  ETLE 
HAS  BEEN  RECORDED. 


o V 

^ A1 1 data  files  ur>  to  the  last  data  file  contain  the  same 
number  of  noints.  The  last  file  must  be  able  to  handle  any 
number  of  points  un  to  the  number  for  the  other  files.  This 
requires  some  extra  bookkeenino. 
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3tf  s "2  mi 

IF  R41/5  - 
INT (R41/5 


3 7:  ( R45+5 -*■  R45 ; R45-R47 


41 1 


FMT  * ; RED  4,  R(50+B), 

R (51+B)  , R (52+B)  , R(53+B), 
R ( 54+B) 

5 


TEST  WHETHER  ALL  CARDS 
; CONTAIN  VALID  DATA,  i.e., 
WHETHER  "JUNK"  DATA  HAVE 
BEEN  ADDED  TO  COMPLETE  THE 
LAST  CARD  (SEE  FOOTNOTE  1). 


CALCULATE  TOTAL  NUMBER  OF 
PTS.  INCLUDING  "JUNK"  DATA 
AND  CALCULATE  THE  NO.  OF 
PTS.  LEFT  FOR  THE  LAST  FILE, 
INCLUDING  "JUNK"  PTS. 


TEST  IF  ALL  DATA  IS  BEING 
STORED  IN  ONE  FILE. 


INITIALIZE  REGISTER  COUNTER 
INCREMENT  FILE  NUMBER. 


WHEN  PLOTTING  FROM  CASSETTE, 
SKIP  OVER  PROGRAM  LINES 
CALLING  FOR  CARD  READER. 


INSTRUCT  CARD  READER  TO  PICK 
CARDS  IN  CONTINUOUS  MODE. 


READ  ONE  CARD  AND  STORE  THE 
FIVE  DATA  PTS.  IN  THE 
SPECIFIED  REGISTERS. 


INCREMENT  THE  REGISTER 
COUNTER. 


TEST  WHETHER  ALL  DATA  FOR 
LAST  PILE  HAS  BEEN  READ. 
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PRINT  CURRENT  FILE  NUMBER. 
RECORD  THE  DATA  ONTO  TWO 
CASSETTE  TAPES.  CAN  REMOVE 
THAT  WHICH  IS  TNSTDE 
BRACKETS  IF  NO  DUPLICATE 
TAPE  DESIRED. 

CALCULATE  THE  FIRST  FILE 
RECORDED.  INITIALIZE  A PILE 
COUNTER.  PRTNT  OUT  THE  FILE 
NUMBER  AND  LOAD  THE  DATA 
FROM  THE  FTRST  PILE  INTO  THE 
CALCULATOR. 


INITIALIZE  A REOTSTFP 
COUNTEP.  CALCULATE  NO.  ®TS . 
IN  LAST  FILE.  PRINT  OUT 
FILE  NUMBER. 


SCALE  PLOTTING  SURFACE 
ACCORDING  TO  PREVTOUSLv 
CALCULATED  VALUES. 


PLOT  ONE  DATA  POINT. 


TEST  REGISTER  COUNTER  TO 
DETERMINE  IP  CURPENT  PTLE  TP 
THE  LAST  PILE. 


TEST  IF  ALL  PTS . IN  PTLE 
HAVE  BEEN  PLOTTED.  TP  NO 
INCREMENT  X AND  V VALUES  AND 
CONTINUE  PLOTTING. 


INCREMENT  FILF  NUMBER  AND 
FILE  COUNTER. 
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TP  REGISTER  COUNTER  LESS 
THAT  MAX  NUMBER  PILES , PRINT 
OUT  PILE  NUMBER,  LOAD  NEXT 
PILE  INTO  CALCULATOR  AND 
CONTINUE  PLOTTING. 


51s 


IP  R47-1  it 


Z 


R0+R13-»R0 ; 

Z+1->Z; 

GTO-4 


TEST  IP  ALL  PTS.  TN  LAST 
PILE  HAVE  BEEN  PLOTTED.  I** 
NOT  INCREMENT  X AND  V VALUES 
AND  CONTINUE  PLOTTING. 


SIGNAL  TO  OPERATOR  THAT 
PROGRAM  IS  TERMINATED. 


SIGNAL  TO  CALCULATOR  THAT 
PROGRAM  IS  TERMINATED. 
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Sample  output  plots  are  contained  in  Figures  3 through  9.  Figures 
3 and  4 are  Time  Scanned  Array  Radar  (TSAR)  antenna  transmit  patterns. 
The  values  along  the  abscissa  are  angles  in  degrees  and  the  values  along 
the  ordinate  are  in  decibels  (dB) . Figures  5 and  6 are  plots  of  mag- 
nitude and  phase  respectively  of  a TSAR  pulse  train  looking  through  the 
main  lobe  shown  in  Figure  3.  The  abscissa  of  both  plots  is  in  nano- 
seconds and  the  ordinate  in  Figure  5 is  in  decibels  and  in  degrees  in 
Figure  6.  Figures  7,  8 and  9 again  show  the  magnitude  and  phase  of  the 
pulse  train  looking  through  the  main  lobe  shown  in  Figure  3.  Figure  7 
shows  the  pulse  train  for  a much  longer  time  interval  than  does  Figure 
5.  The  time  delay  and  the  number  of  pulses  required  to  load  the  array 
are  illustrated  here.  Figure  8 illustrates  the  pulse-to-pulse  phase 
shift  and  the  phase  gradient  of  the  pulse  train  in  Figure  7.  Figure  9 
is  an  expanded  plot  of  Figure  8. 
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Sample  TSAR  Beam  Pattern 


Sample  TSAR  Beam  Pattern 
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Figure  7.  Magnitude  of  Pulse  Train  Filling  up  the  Array 
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[J 


panded  Plot  of  Phase  of  Pulse  Train  Filling  up  the  Array 


VI.  R A E Plot  Program 


The  R A E plot  program  (shown  on  page  34)  will  plot  slant  range, 
azimuth,  and  elevation-vs-time  all  on  the  same  graph;  or  slant  range  rate, 
azimuth  rate,  and  elevation  rate-vs-time  all  on  the  same  graph.*  The  data 
is  read  into  the  "HP  system"  from  punched  paper  tape. 

Program  steps  0 and  1 specify  the  dimensions  of  the  abscissa  and 
ordinate  and  draw  in  the  intersecting  axes  with  tick  marks.  Steps  2 through 
18  define  the  variable  to  be  plotted  and  the  units,  and  label  the  plot 
accordingly  (see  the  illustrations  on  page  59). 

Statement  19  calculates  the  number  of  labels  to  be  written  on  the 
axes.  Steps  20  through  28  define  the  limits  of  time  for  labeling  purposes 
and  write  the  proper  values  of  time  at  each  tick  mark. 

In  statements  29  through  34,  the  limits  of  elevation,  azimuth,  and 
slant  range  are  keyed  in  and  subsequently  printed  out  to  insure  that  the 
desired  values  have  been  keyed  in  correctly.  From  Statements  35  to  57,  the 
ordinate  is  labeled  with  three  scales;  i.e.,  elevation,  azimuth,  and  slant 
range. 

Data  is  read  in  and  stored  on  cassette  tapes  as  defined  by  program 
Steps  58  to  75,  and  plotted  in  Steps  76  through  97. 


•This  program  was  modified  from  an  original  program  written  by 
John  Cleary.  (See  Appendix  E.) 
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0: 

eh  r 

""LENGTH" , R27, " 

YLENGTH " , R28, "XUSED 

, R29,  VO  TED 

" !•  P 

' 1 1 » 1 ? R 0 f 

1 : 

SCL 

0 • P 2 7 j 0 ? P285  a:  :e 

1, 1, .5, .55 LTR  2,8,2 

21  t 

£: 

PLT 

"TINE  -MIHUTES 

AFTER  BURHOUT) " [ 

3 * 

IF 

R0 0 ; GTO  "LARD” 

[ 

4! 

SF'C 

2J  F'RT  "LABEL.  R 

A E"  C 

C a 

■J  • 

LTR 

0,9.  8-2215 PLT  " 

E"  [ 

6: 

LTR 

0.4- 9.8,221? PLT 

"A"  t 

{ • 

LTR 

0.8, 9. 8, 221? PLT 

"R"  C 

o . 

LTR 

. 1,9 ■3,2215 PLT 

"DEG"  C 

9: 

LTR 

0.7, 9. 3, 221? PLT 

”NM"  C 

10: 

GTO 

"EH"  [ 

1 1 : 

"LflRD" 5 SRC  25PRT  "LABEL  P A E RATES"  t 

12: 

LTR 

0 , 9 . 8 , 22 1 5 PLT 

E"  [ 

13: 

LTR 

0.4, 9. 8, 221 5 PLT 

"A"  [ 

14: 

LTR 

0.8, 9. 8, 221? PLT 

"R"  [ 

15: 

LTR 

. 1,9. 6, 221? PLT 

"DEG"  L 

16: 

LTR 

.1,9.3,221! PL T 

"SEC"  r 

17: 

LTR 

0.7,9.6,221?  PLT 

"FT"  [ 

18: 

LTR 

0. 6,9.3, 221 5 PLT 

"SEC"  t 

19: 

R27. 

R29  TO  R425R28/ 

R30  TO  R43 ! 2*P29  TO 

33 1 ? 2*R30  TO  R32  C 

20: 

"EH 

? EHT  " TM I H= " , R 1 

, "TMAX=",R2  C 

c!  i * 

ABS 

P PI  1 -'RSI  TO 

: , R 1 + R 3 T i J R 1 4 5 1 T U 

R 1 3 [ 

dd  • 

F'RT 

" TM I N~: " , R 1 , " T MR 

: = ",R2,  "T  IHC" , F:3?  FXD 

1 [ 

d 3 • 

R2~R42< P2-R1 > TO  R1 

8 [ 

Figure 

10.  RAE  Plot  Program 
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R13+1  TO  R 1 3 ? R i 4 + R J TO  R14  L 


F ti  IS  IT  NT  “ LM  1 N 


ENT  AMIN 


32:  F'RT  'EMIN 


PRT  "AMIN 


34:  PRT  "RMIN 


TO  Rfc  ; P4  I RO  TO  El 


R15+R6  TO  Rl 


FIGURE  10.  RAE  PLOT  PROGRAM  (CONT'D) 


IF  PI;:  # R32-95GT0  -3  t 
F d ISRBS  < R 1 1 - R 1 D ) / < R 3 2 2 > TO  R 1 2 [ 

R10+R12  TO  R 1 7 5 1 TO  R13  [ 

R11-R43<R11-R10>  TO  R21  C 
SCL  0?  R£7»  R21 ) R1 1 L 
LTR  0 . 6 » R 1 7 j 2 1 1 t 
PIT  R 1 7 [ 

PI 3+1  TO  R 1 3 5 R17+R12  TO  R17  I' 

IF  R13  # R32-105  GTO  -3  [ 

ENT  "SELECT  CODE'VrS  "HO.  FILES"  j R22?  "PTS/F 1 LE  ' ■>  R40 
< "SFILE" ? ft  t 

EHT  "HO.  PTS" j R41 j "RHUMB" j R48? IF  R43=1!GT0  "FT"  I 
1 " ? 1 TO  C 5 O TO  2 5 SSC  Y [ 

IHT  (R41/3>  TO  R4550  TO  R47  [ 

1RERD" 5 IF  R22=35  R45  TO  R465  0 TO  Z5GTO  +8  I 
"RERD" 5 RED  1»R<50+Z>  C 
2+1  TO  z; IF  R40  # 25 GTO  -1  [ 

R47+R40  TO  R47  [ 

F’ C F ft  ? R 5 0 ? R ( R 4 0 + 4 9 ) 5 C +1  TO  L 5 P R T ft  L 
R45-R47  TO  R46  C 

IF  R40  = R46  5 fl+1  Tu  h?0  TO  25lTu  RERD  I 

ft+1  TO  R50  TO  Z C 

RED  1 » R1 50+Z>  i 

Z+l  TO  2 5 IF  R 4 6 # 25 GTO  -1  t 

RCF  In  F:50>  R<. R46+49  > 5 L-  +•  1 TO  U5PRT  R I 

FIGURE  10.  RAE  PLOT  PROGRAM  (CONT'D) 
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if  i -•  i ; i.\ i o i.'  l 
i f h 2 j ; h + 1 i o h; g r o " i rerd  1 l 

0 TH  Z 10  R475fl-U  TO  R j Li  TO  'RE  Hi!"  t 

"FT'  SENT  • I HE:  T PLOT  FILE  * H * TM I f!  "<  R23 < "f : ifo:  » P rj 

1 Tin  - k 4 [ 

SSC  r'5  0 TO  Z TO  R4?5  1 TO  CiPRT  RW.IiF  H - FLO  f 
S C L R 1 S > R 2 > R i 9 j R 5 L 
R23  TO  R26  t 

IF  p'22-  3 5 R 4 5 T U R 4 6 5 0 T 0 + 6 f. 

"PLT " 5 FLT  R26»R<50+Z>  I 

R26+R24  TO  R2652+1  TO  ZS IF  R40  # Z5GT0  -2  t 
R47+R40  TO  R475R45-R47  TO  R4b  F 

IF  R40  < = R465R+1  TO  fiJC+l  TO  CiLDF  ft,R5©!GT0  "f‘.  T " t 
fi+ 1 T 0 R ' C + 1 T 0 C 5 O T 0 Z 5 PR  F H " I BF  ft  > Rbo  L 
PLT  P2b»  P<50+Z)  I 

R2F  + R24  T 0 R26  5Z+1  TO  25  IF  R4 t # 7. 5 G T 0-1  C 
PER  :if  C=R225 GTO  +8  l 
IF  i.  -R  Z '35  GTO  '2  [ 

IF  ;pz:-  3 5 GTO  +3  C 

■ f ; : Z < R ? 3 T 0 R 2 6 s 0 C L R 1 8 « P Z , k 2 8 1 R 8 5 G 1 0 - . L 

■•V  TO  R.-'F 5 0 TO  Z TO  R4F  • 'Jl.'l  " l « Pz  ♦ K20 ’0*1  rt*  +1  10 

5 F’RI  fi!  LDF  0 * R50 5 GTO  "F'Ll  r 

;F  f;:  :RZ3  TO  kZEl  ' OL  R 1 R t R - l EOZPZ  l « 1 E8-  'll?  "0 

8 t 

FIGURE  10.  RAE  PLOT  PROGRAM  (CONT'D) 
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94*  T i-l  K'Jb«U  TO  2 TO  R47  5 SCL  R18»R7  * IEQjRlI  » IE03P  1 1 ? ft+  1 l M 

R5C+1  TO  C5PRT  ft  t 
95:  LPF  «.R50!GTO  "PLT"  t 

96:  F'PT  "ENP  OF  DATA"  [ 

97:  END  [ 

FIGURE  10.  RAE  PLOT  PROGRAM  (CONT’D) 


M 


The  preceding  description  of  program  operation  has  been  purposely 
made  general  with  the  intent  that  it  be  used  as  a summary.  For  further 
explanation,  a flow  chart  follows  which  describes  program  operation  in 
detail . 

Table  3 lists  the  inputs  required  by  the  program.  The  display  on  the 
calculator  will  show  the  parameter  listed  under  Variable  Name  in  the  Table. 
The  value  to  be  keyed  in  is  explained,  and  the  register  where  the  keyed-in 
value  is  stored  is  shown. 

In  Table  4,  each  register  used  in  the  program  is  listed  with  an  explana- 
tion of  the  value  stored. 
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INPUTS 


Variable 


Name 

Reqister 

Meaning 

XLENGTH 

R27 

Absolute  horizontal  length  of  the 
plotting  surface  (X-axis) . 

YLENGTU 

R2  8 

Absolute  vertical  length  of  the 
plotting  surface  (Y-axis) . 

XUSED 

R29 

Portion  of  XLENGTH  used  for 
plotting;  i.e.,  excluding  the 
portion  used  for  labeling  the  axis. 

YUSED 

R30 

Portion  of  YLENGTH  used  for 
plotting;  i.e.,  excluding  the 
portion  used  for  labeling  the  axis. 

SI 

R0 

A switch.  If  SI > 0 label  Y-axis 
EAR.  If  Si  s0  label  Y-axis 
EAR. 

TMIN 

R1 

Min.  value  of  time  for  labeling 
the  X-axis. 

TMAX 

R2 

Max.  value  of  time  for  labeling 
the  X-axis. 

EMIN 

R4 

Min.  value  of  elevation  for 
labeling  the  Y-axis. 

EMAX 

R5 

Max.  value  of  elevation  for 
labeling  the  Y-axis. 

AMIN 

R7 

Min.  value  of  azimuth  for  labeling 
the  Y-axis. 

AMAX 

R8 

Max.  value  of  azimuth  for  labeling 
the  Y-axis. 

RMIN 

RIO 

Min.  value  of  slant  range  for 
labeling  the  Y-axis. 

RMAX 

Rll 

Max.  value  of  slant  range  for 
labeling  the  Y-axis. 

SELECT  CODE 

Y 

Select  code  of  the  cassette  unit 
where  data  is  to  be  stored. 

Inputs 

TABLE  3 
- RAE  Program 
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INPUTS  (CONT.) 


Variable 


Name 

Register 

.'lean  inn 

NO.  FILES 

R22 

The  total  no.  of  files  used  to 
store  the  data. 

PTS/FILE 

R40 

The  number  of  pts.  to  bn  stored 
each  file. 

in 

SFILE 

A 

The  first  file  where  data  is  to 
stored. 

be 

NO . PTS 

R41 

The  total  no.  of  ots. 

PNUMB 

R48 

A switch.  If  PNUMB  = 1 load  data 
from  cassette  and  Dlot.  If 
PNUMB  4 1 read  data  from  paoer 

taDe . 

START  PLOT 


FILE 

A 

The  no.  of  the  first  file  to  be 
plotted. 

TMIN 

R2  3 

Min.  value  of  time  (independent 
variable)  to  be  clotted. 

TMAX 

R25 

Max.  value  of  time  (indeo.  var.) 
to  be  dotted. 

TINC 

R2  4 

Increment  between  values  of  the 
independent  variable. 

TABLE  3 (CONT'D) 
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REGISTER  TABLE 


Register 

RO 


R1 

R2 

R3 

R4 

R5 

R6 


Value  Stored 


Switch  to  determine  whether  to  label 
the  Y-axis  with  E A R or  E A R 
(input) . 

Min.  time  value  for  labeling  (input) . 

Max.  time  value  for  labeling  (input) . 

Increment  between  time  labels  on  the 
abscissa. 

Min.  elevation  value  for  labeling 
(input)  . 

Max.  elevation  value  for  labeling 
(input) . 

Increment  between  elevation  labels  on 
the  ordinate. 


R7  Min.  azimuth  value  for  labelina 

(input) . 

R8  Max.  azimuth  value  for  labeling 

(input) . 

R9  Increment  between  azimuth  labels  on 

the  ordinate. 

RIO  Min.  slant  range  value  for  labeling 

(input) . 

Rll  Max.  slant  range  value  for  labeling 

(input) . 

R12  Increment  between  slant  range  labels 

on  the  ordinate. 


Rl  3 


Label  counter. 


Rl  4 


Value  of  each  time  label. 


R15 


Value  of  each  elevation  label. 


R16  Value  of  each  azimuth  label. 

Table  4 

Register  Cross-Reference  Chart 

for  RAE  Pro£ram 


REGISTER  TABLE  (GOUT.) 


Register 

R17 

R18 


R19 


R2  0 


R21 


R22 


Value  Stored 


Value  of  each  slant  ranqe  label. 

Xmin  value  for  scale  of  abscissa 
based  on  the  ratio  of  XUSED/XLENGT1I 
(see  INPUT  Table)  and  the  max.  and 
min.  values  of  time. 

Ymin  value  for  3cale  on  ordinate, 
based  on  the  ratio  of  YUSED/VLEtJGTII 
(see  INPUT  Table)  and  the  max.  and 
min.  values  of  elevation. 

Ymin  value  for  scale  on  ordinate, 
based  on  the  ratio  of  YUSED/YLENGTH 
(see  INPUT  Table)  and  the  max.  and 
min.  values  of  azimuth. 

Ymin  value  for  scale  on  ordinate, 
based  on  the  ratio  of  YUSED/YLENGTil 
(see  INPUT  Table)  and  the  max.  and 
min.  values  of  slant  range. 

Total  number  of  files  used  to  store 

data. 


R23 
R2  4 

R25 
R26 
R27 
R2  8 
R29 
R30 
R31 
R32 


Min.  time  value  plotted. 

Increment  ue tween  values  of  the 
independent  \ ariable-time. 

Max.  time  value  plotted. 

The  time  value  plotted. 

XLENGTd  (see  INPUT  Table) 

YLENGTIl  (see  INPUT  Table) 

XUSED  (see  INPUT  Table) 

YUSED  (see  INPUT  Table) 

No.  of  labels  on  the  abscissa 

No.  of  labels  on  the  ordinate. 


REGISTER  TABLE  (CONT. ) 


Register 

Value  Stored 

R33-R39 

Not  used. 

R40 

No.  of  pts.  per  file. 

R41 

Total  no.  of  pts. 

R42 

Ratio  of  XUSED/XLENGTH. 

R43 

Ratio  of  YUSED/YLENGTH. 

R44 

Not  used. 

R45 

No.  of  pts.  per  plot. 

R46 

No.  of  pts.  left  to  plot. 

R47 

Point  counter. 

R48 

Switch  to  determine  where  data  stored 
(see  INPUT  Table) . 

R50  . . . 

Data  storage. 

A 

File  Number 

B 

Not  Used 

C 

File  counter 

X 

Not  Used 

Y 

Select  Code 

Z 

Register  Counter 
Table  4 (cont'd) 
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0: 


1: 


2 : 


3: 


4: 


5: 


6 : 


KEY  IN  DIMENSIONS  OF  PLOTTING 
SURFACE  AND  PORTION  OF 
PLOTTING  SURFACE  USED  (i.e. 
EXCLUDING  THAT  USED  FOR  AXIS 
LABELS).  "SI"  DETERMINES 
UNITS  ON  THE  ORDINATE. 


SCALE  PLOTTING  SURFACE 
ACCORDING  TO  THE  DIMENSIONS 
SPECIFIED  IN  THE  ENT  STATE- 
MENT ABOVE.  DRAW  AXES  INTER- 
SECTING AT  (1,  1).  SPECIFY 
POSITION  OF  THE  LABEL  ON  THE 
X-AXIS. 


WRITE  TIME  (MINUTES  AFTER 
BURNOUT)  ON  THE  PLOT. 


TEST  TO  DETERMINE  WHETHER 
PLOTTING  R A E OR  R-DOT, 
A-DOT,  E-DOT. 


PRINT  OUT  PARAMETERS  TO  BE 
LABELED  ON  THE  ORDINATE. 


WRITE  E ON  THE  PLOT. 


WRITE  A ON  THE  PLOT. 


15 


7 


WRITE  R ON  THE  PLOT 


PRT  "LABEL  R A E 

VsJ*ATES"  

I 


WRITE  DEG  ON  THE  PLOT.  (UNITS 
OF  E AND  A) 


WRITE  NM  ON  THE  PLOT  (UNITS 
OF  R) 


GO  TO  THE  LINE  LABELED  " EN " 


PRINT  OUT  PARAMETERS  TO  BE 
LABELED  ON  THE  ORDINATE. 


WRITE  E ON  THE  PLOT. 


WRITE  A ON  THE  PLOT. 


WRITE  R ON  THE  PLOT. 
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15 


16: 


18: 


19: 


20: 


21: 


22: 


ft 


X 


27/R29 R42; 
R28/R30  — > R43; 
2R29  — > R31; 

R30  — > R32 


/*EN";  ENT  "TMIN^K 
\R1,  "TMAX  . R2  / 


^SBS  (R2-Rl)/R31->~R3>s 
JU+RJ3  — » R14 ; 1— >R13y 


f^RT~ "TMIN-" , Rl,  "TMAXm7\ 
J*2,  "TINC",  R3 ; FXD  1 J 


V 


WRITE  DEG  (DEG/SEC)  ON  FLOT 
SEC 


(UNITS  OF  E AND  A) 


WRITE  FT  (FT/SEC)  ON  PLOT 
SEC 

(UNITS  OF  R) 


CALCULATE  PORTION  OF 
PLOTTING  SURFACE  USED  FOR 
PLOT  (EXCLUDING  PORTION  USED 
FOR  LABELING  AXES).  PRELIMI- 
NARY CALCULATION  FOR  THE 
NUMBER  OF  LABELS  ON  EACH 
AXIS. 

KEY  IN  MINIMUM  AND  MAXIMUM 
ABSCISSA  LABEL  (TIME) . 


CALCULATE  INCREMENT  BETWEEN 
LABELS  ON  ABSCISSA  AND  VALUE 
OF  FIRST  LABEL.  INITIALIZE 
LABEL  COUNTER. 


PRINT  OUT  MIN . AND  MAX. VALUE 
ON  ABSCISSA  AND  INCREMENT 
BETWEEN  LABELS. 
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23: 

24: 

25: 

26: 

27: 

28: 

29: 

30: 

31: 


A. 


R2-R42 (R2-R1)  R18 


■ Rl8) 


I 

t 


(SCL  R18,  R2,  0,  rI8) 


t 2 

(LTR  R14-.4,  0.7,  211) 


(p\ 


i 


PLT  R14 

V. 


9 


1 


/1U3+1  ->  Rl3r\ 
J*14+R3— > R14y 


CALCULATE  SCALE  FOR  LETTERING 
ABSCISSA  BASED  ON  RATIO  OF 
ABSCISSA  USED  FOR  PLOTTING. 


SCALE  PLOTTER  FOR  LETTERING 
ABSCISSA. 


SPECIFY  POSITION  OF  LABELS 
AT  THE  PROPER  TICK  MARK. 


WRITE  THE  LABEL. 


INCREMENT  THE  LABEL  COUNTER 
AND  INCREMENT  THE  VALUE  OF 
THE  LABEL. 


IF  THE  DESIRED  NUMBER  OF 
LABELS  HAVE  BEEN  WRITTEN  GO 
ON,  IF  NOT  CONTINUE  LABELING. 


KEY  IN  MIN.  AND  MAX.  ELEVA- 
TION FOR  LETTERING  THE 
ORDINATE. 


KEY  IN  MIN.  AND  MAX.  AZIMUTH 
FOR  LETTERING  THE  ORDINATE. 


KEY  IN  THE  MIN.  AND  MAX. 
RANGE  FOR  LETTERING  THE 
ORDINATE. 
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32: 


33: 


34: 


35: 


36: 


37: 


38: 


39: 


40: 


PRINT  OUT  THE  MIN.  AND  MAX. 
VALUES  JUST  KEYED  IN 


CALCULATE  INCREMENT  BETWEEN 
ELEVATION  LABELS  AND  VALUE 
OF  FIRST  LABEL.  INITIALIZE  A 
LABEL  COUNTER. 


CALCULATE  SCALE  FOR  LETTERING 
ORDINATE  BASED  ON  PORTION 
USED  FOR  PLOTTING. 


SCALE  THE  PLOTTER  FOR 
LETTERING  ELEVATION  VALUES. 


SPECIFY  POSITION  OF  EACH 
LABEL 


WRITE  EACH  LABEL. 


INCREMENT  LABEL  COUNTER  AND 
CALCULATE  A NEW  VALUE  OF 
ELEVATION . 
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41: 

42: 

43: 

44: 

45: 

46: 

47: 

48: 

49: 


YES 

R13**R32-1$> T^GTO-3 


(ABS  (R8-R7)  / (R32/2)  — * R9) 

' 

[ 

(R7+R9/2  — 

V 

■ R16  ; 1— *R13) 

IF  THE  DESIRED  NUMBER  OF 
LABELS  HAVE  BEEN  PLOTTED  GO 
ON,  IF  NOT  CONTINUE  LABELING. 


CALCULATE  THE  INCREMENT 
BETWEEN  LABELS  OF  AZIMUTH. 


CALCULATE  THE  VALUE  OF  THE 
FIRST  LABEL  AND  INITIALIZE 
A LABEL  COUNTER. 


CALCULATE  SCALE  FOR  LETTERING 
AZIMUTH  VALUES  ON  ORDINATE. 


SCALE  PLOTTER  FOR  LABELING 
AZIMUTH  ON  THE  ORDINATE. 


(LTR  .4,  R16 , 2 ll) 


j 

‘PLT  R16) 


^R13+l  -h*R13;  \ 
R16+R9  — »R16  J 


nJF  R13f<R32-9; 


YES 


t^GTO-  3j) 


SPECIFY  THE  POSITION  OF  EACH 
LABEL  AT  THE  PROPER  TICK 
MARK. 


WRITE  THE  LABEL. 


INCREMENT  THE  LABEL  COUNTER 
AND  CALCULATE  A NEW  VALUE  OF 
AZIMUTH. 


IF  THE  DESIRED  NUMBER  OF 
LABELS  HAVE  BEEN  PLOTTED 
GO  ON,  IF  NOT  CONTINUE 
LABELING. 
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50: 

51: 

52: 

53: 

54: 

55: 

56: 

57- 

58: 

59: 


/ENT  "SELECT  CODE”,  Y, 

"NO.  FILES", R22,  "PTS/FILE",) 
R40  , "SFILE" , A 


L 


/ENT  "NO.  PTS " , R41, 
\*PNUMB"  , P48 


CALCULATE  THE  INCREMENT 
BETWEEN  RANGE  VALUES  FOR 
LABELING. 


CALCULATE  THE  VALUE  OF  THE 
FIRST  LABEL  AND  INITIALIZE 
A REGISTER  COUNTER. 


CALCULATE  SCALE  FOR  LETTERING 
RANGE  ON  THE  ORDINATE. 


SCALE  THE  PLOTTER  FOR 
LETTERING  RANGE. 


SPECIFY  POSITION  OF  EACH 
LABEL  AT  THE  PROPER  TICK 
MARK. 


WRITE  THE  LABEL. 


INCREMENT  THE  LABEL  COUNTER 
AND  CALCULATE  A NEW  VALUE 
OF  RANGE. 


IF  THE  DESIRED  NUMBER  OF 
LABELS  HAVE  BEEN  PLOTTED  GO 
ON,  IF  NOT  CONTINUE  LABELING. 


KEY  IN  THE  SELECT  CODE  OF  THE 
APPROPRIATE  CASSETTE  UNIT, 

THE  NUMBER  OF  FILES  FOR 
STORING  DATA, THE  PTS/FILE, 

AND  THE  FIRST  FILE  TO  BE 
LOADED  WITH  DATA. 

KEY  IN  THE  TOTAL  NUMBER  OF 
POINTS. 
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2 

66:  f^CF  A,  R50  , R(R40+4977\ 

vg+1— »C»  PRT  A / 


* 

V 


IF  DATA  TO  BE  PLOTTED  IS 
ALREADY  STORED  ON  CASSETTE 
TAPES  (R48=l)  BEGIN  PLOTTING. 
IF  NOT,  READ  PAPER  TAPE. 


INITIALIZE  FILE  COUNTER  (C) 
AND  REGISTER  COUNTER(Z).  SET 
THE  SELECT  CODE  OF  THE 
APPROPRIATE  CASSETTE  UNIT. 


CALCULATE  THE  NUMBER  OF  PTS 
PER  PLOT.  INITIALIZE  A PT 
COUNTER . 


IF  DATA  FOR  EACH  PLOT  IS  TO 
BE  STORED  ON  THREE  FILES, i.e. 
ONE  FILE  PER  PLOT,  READ  THE 
DATA  IN  AS  SUCH. 


READ  ONE  DATA  POINT. 


INCREMENT  THE  REGISTER 
COUNTER. 


IF  ENOUGH  PTS.  HAVE  BEEN 
READ  TO  FILL  THE  CURRENT  FILE 
GO  ON,  OTHERWISE  PEAD  MORE 
DATA. 


INCREMENT  THE  POINT  COUNTER. 


RECORD  THE  DATA  ONTO  A 
CASSETTE  FTLE , INCREMENT  THE 
FILE  COUNTER  AND  PRINT  OUT 
THE  FTLE  NUMBER. 
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a 


V 


CALCULATE  THE  NUMBER  OF  PTS . 
LEFT  TO  BE  READ  FOR  ANY 
GIVEN  PLOT. 


IF  THE  NUMBER  OF  *>TS  LEFT  TO 
BE  RECORDED  ARE  MORE  THAN  CAN 
BE  RECORDED  ONTO  ONE  PILE, 
INCREMENT  THE  FILE  NUMBER, GO 
BACK  AND  READ  MORE  DATA. 


INCREMENT  THE  FTLE  NUMBER 
AND  RESET  THE  REGISTER 
COUNTER. 


READ  ONE  DATA  POINT. 


INCREMENT  THE  REGISTER 
COUNTER. 


IF  ALL  THE  DATA  HAS  BEEN 
READ  IN  GO  ON,  OTHERWISE  GO 
BACK  AND  READ  ANOTHER  PT. 


RECORD  THE  DATA  ONTO  CASSETTE 
TAPE. 


IF  ALL  THE  DATA  HAS  BEEN 
READ  IN,  GO  ON  TO  PLOT. 


S3 


W 


74: 


YES 


IF  ALL  THE  DATA  FOR  EACH 
PLOT  IS  TO  BE  RECORDED  ON 
ONE  FILE  (3  FILES  TOTAL)  AND 
IT  HAS  NOT  ALL  BEEN  RECORDED 
GO  BACK  AND  READ  MORE  DATA. 


SINCE  ALL  THE  DATA  HAS  NOT 
BEEN  RECORDED.  INCREMENT  THE 
FILE  NUMBER  AND  RESET  THE 
REGISTER  AND  PT . COUNTERS. 
READ  MORE  DATA. 


KEY  IN  THE  FIRST  FILE  TO  BE 
PLOTTED,  MINIMUM  VALUE  O* 
TIME  MAX.  VALUE  OF  TIME  AND 
THE  TIME  INCREMENT  BETWEEN 
DATA  PTS . 


SET  THE  SELECT  CODE  OF  THE 
APPROPRIATE  CASSETTE  UNIT, 
INITIALIZE  A REGISTER 
COUNTER  AND  POINT  COUNTER, 
AND  A FILE  COUNTER.  PRINT 
OUT  THE  VALUE  OF  THE  FIRST 
FILE  AND  LOAD  THE  DATA  FROM 
CASSETTE  TAPE. 


SCALE  THE  PLOTTER  FOR  TIME 
VS.  ELEVATION  PLOT. 


INITIALIZE  TIME  AT  TMTN  FOR 
PLOTTING. 


IF  THREE  FILES  CONTAIN  ALL 
THE  DATA,  JUMP  AHEAD  TO  A 
SEPARATE  PLOT  SUBPROGRAM. 


PLOT  ONE  (X,  Y)  PAIR  OF  DATA. 


INCREMENT  THE  VALUE  OF  THE 
INDEPENDANT  VARIABLE  (TIME) 
AND  THE  REGISTER  COUNTER. 
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IP  ALL  THE  POINTS  FROM  ONE 
FILE  HAVE  REEN  PLOTTED  GO  ON. 
OTHERWISE  GO  BACK  AND 
CONTINUE  PLOTTING. 


INCREMENT  THE  POINT  COUNTER 
AND  CALCULATE  THE  NUMRER 
OF  PTS.  LEFT  TO  BE  PLOTTED. 


IF  MORE  THAN  ONE  FILE  OF 
DATA  IS  LEET  TO  BE  PLOTTED 
GO  BACK  AND  PLOT  THE  NEXT 
FILE.  OTHERWISE  GO  ON. 


INCREMENT  THE  PILE  NO.  AND 
THE  FILE  COUNTER.  INITIALIZE 
A REGISTER  COUNTER.  PRINT 
OUT  THE  NEXT  FILE  NUMBER  AND 
LOAD  THE  FILE  INTO  THE 
CALCULATOR . 


PLOT  ONE  (X,  Y)  PAIR  OF  PTS. 

INCREMENT  THE  TIME  AND  THE 
REGISTER  COUNTER. 


IF  ALL  THE  PTS.  HAVE  BEEN 
PLOTTED  GO  ON,  OTHERWISE  GO 
BACK  AND  CONTINUE  PLOTTING. 


RAISE  THE  PEN  AND  IF  ALL  THE 
PLOTTING  IS  COMPLETED  .TUMP 
TO  THE  END  OF  THE  PROGRAM, 
OTHERWISE  CONTINUE  PLOTTING. 
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89 


VES 


4F  C = R22/> 


>GTO+2 


A 


IF  ONE  PLOT  IF  COMPLETED 
(T  VS.  F)  JUMP  AHEAD  AND 
RESCALE  THE  BLOTTER  *OR  THE 
T VS  A PLOT. 


IF  TWO  PLOTS  ARE  COMPLETED 
(T  VS.  E & T VS.  A)  JUMP 
AHEAD  TO  RESCALE  FOR  THE 
T VS.  R PLOT. 


91: 


<TF  R22  = 3 


YES  

v -/R2  3 ~»R26  ; 
SCL  R18 , 

, R2  0,  R8 ; 
GTO-6 


♦IF  ALL  THE  DATA  FROM  THE 
T VS.  A ^loT  IS  CONTAINED  ON 
ONE  FILE.  INITIALIZE  TIME  AT 
TMIN , RESCALE  THE  PLOTTER  AND 
GO  BACK  TO  PLOT. 


NO 


9 2 : /R2  3 R26  ; 0-*Z~>R47;  A 

I SCL  R1 8 , R2,  P20,  R8;  j 
A+  1— * A ■ C+1-»C?  PRT  A;  I 
LDF  A,  R50 : GTO  ,,PLT"y' 


♦♦INITIALIZE  TIME  AT  TMIN, 
INITIALIZE  A REGISTER  COUNTER 
AND  PT.  COUNTER.  RESCALE  THE 
PLOTTER.  INCREMENT  THE  FILE 
NUMBER  AND  FILE  COUNTER. 

PRINT  THE  FILE  NUMBER  AND 
LOAD  THE  DATA  INTO  THE 
CALCULATOR. 


93: 


94  : 


' YES 

</tf  922  = 3 

Ay 

NO 


D2  3'  R26  ; 0 • »Z  - R47:~'s 
SCL  R1 8 , R2,  1E0 3 R21, 
1E0  3 R 1 1 ; 

A+1-* A;  C+l  ' C;  PRT  A 


/R.23-*R26 ; A 
1 SCL  R18 , R2 , 
1E0  3 R21, 
j 1E0 3 Rll; 

GTO- 8 


SAME  AS  FOR  * ABOVE  FOR  T VS. 
R 9LOT. 


SAME  AS  FOP  **  ABOVE  por  T 
VS.  R PLOT. 
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95: 


96: 


97: 


(hi 


LDP  A,  R50 ; GTO  "PLT 


ri»\ 


LOAD  THE  LAST  PILE  AND  GO 
BACK  TO  PLOT  TT. 


(v 


PRT  "END  OF  DATA 


MESSAGE  TO  THE  OPERATOR  THAT 
ALL  THE  DATA  HAS  BEEN 
PLOTTED. 


MESSAGE  TO  THE  CALCULATOR 
THAT  THE  PROGRAM  TS 
TERMINATED. 
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Sample  plots  are  shown  in  Figures  11  through  13.  Figures  11  and  12 
are  plots  of  elevation,  azimuth,  and  slant  range-vs-t ime . Figure  13  is  a 


plot  of  elevation  rate,  azimuth  rate,  and  slant  range  rate-vs-time . 

Listed  in  Appendix  F is  a version  of  the  RAF  Program  in  which  the 
plot  parameters  and  input  data  are  input  from  cards.  The  program  operates 
on  the  same  principle  as  the  generalized  plot  program  described  in  Section  V 
af  this  report  so  that  the  flow  chart  and  register  cross-reference  chart 
can  be  utilized  for  this  program  also.  The  range  is  plotted  first,  then 
azimuth  and  elevation-vs-time;  similarly,  for  the  rates. 
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The  programs  described  in  the  following  appendices  are  given  to  show 
the  developmental  progression  leading  to  the  general  programs  described 
in  the  main  report.  These  are  written  for  specific  applications  and 
contain  definite  limitations  in  their  present  form.  The  basic  logic  is 
the  same;  however,  (i.e.,  read  in  the  data,  record  it  on  cassette  tapes, 
and  plot)  for  all  the  programs  in  this  report,  and  it  may  be  easier  to 
look  at  these  in  an  effort  to  learn  the  general  programs.  Also,  should 
it  be  necessary  to  make  major  modifications  to  the  main  program,  or  re- 
write portions  of  it,  these  simplified  versions  may  be  an  excellent 
starting  point  for  further  development. 
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APPENDIX  A:  Angle  vs  Intensity  Plot  Program 

The  program  shown  on  the  following  page  will  plot  the  intensity  of 
a transmit  beam  vs  angle. 

Statements  1-17  are  used  to  label  the  plot  and  to  draw  and  label  the 
axes.  The  size  and  lettering  can  be  changed  by  changing  the  LTR  commands 
in  Statements  2,  3,  4 and  S. 

Statement  6 reads  the  first  six  data  on  paper  tape  and  sets  them 
equal  to  the  Min.  X value.  Max.  X value,  X increment,  Min.  Y value.  Max. 

Y value,  and  a number  of  points,  respectively.  If  the  paper  tape  does  not 
contain  these  data,  the  RED  command  may  be  changed  to  an  ENT  command 
(similar  to  Statement  18)  and  these  data  may  be  keyed  by  the  operator  from 
the  keyboard.  The  program  replacing  the  RED  command  in  Statement  6 with 
an  ENT  command  is  shown  in  Figure  A-2.  Statements  7-17  are  set  up  to  draw 
the  axes  and  label  the  tick  marks  as  shown  in  Figure  A-3.  The  number  on 
the  axes  depends  on  therange  of  values  but  the  number  of  values  (i.e.,  18 
for  X and  12  for  Y)  is  constant  for  this  size  graph  paper.  The  proper 
statements  can  be  readily  modified  to  accommodate  other  sizes  without 
changing  the  type  of  computations  required  or  formulas  used. 

The  part  of  the  program  which  reads  the  paper  tape  and  plots  it  from 
stored  data  consists  of  Statements  18  through  33.  The  data  is  read  in 
and  stored  in  blocks  according  to  the  following  formula:  (Number  of 

points/number  of  files).  Care  must  be  taken  when  an  odd  number  of  pairs 
of  points  are  to  be  stored.  The  number  of  points/number  of  files  must  be 
such  that  an  equal  number  of  points  are  recorded  per  file  and  each 
(x,y)  pair  of  data  points  must  remain  intact,  i.e.,  the  x value  cannot  be 
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recorded  on  one  file  and  the  y value  on  another. 

The  following  example  should  help  to  clarify: 

Suppose  some  data  was  punched  on  paper  tape  where  the  pairs  of 
data  points  ranged  from  0 to  70.  This  is  71  pairs  of  points  and  there  is 
no  way  of  dividing  71  pairs  evenly  among  any  number  of  files  (other  than  1 
or  71)  without  splitting  a data  pair.  Since  the  plotter  must  have  an  (x,y) 
pair  to  be  able  to  plot,  the  pairs  of  points  are  important  rather  than 
the  absolute  number  of  points  (142  in  this  example). 

There  are  three  possible  ways  of  avoiding  this  problem  depending  on 
the  data.  The  first  method  is,  as  implemented  in  the  angle  vs  intensity 
program  #3,  where  the  independent  variable  time,  is  initialized  at  some 
time,  tmin,  and  incremented  by  some  constant  £t  until  a time,  tmax,  is 
reached.  See  Figure  A-3.  The  data  labeled  "intensities  at  various  angles 
(dB)"  are  46  values  of  intensity  one  value  for  each  angle  from  0®  to  45*: 
at  0®,  intensity  * 21.07  dB  at  1®,  intensity  = 0.38  dB,  etc.  Therefore, 
only  intensity  need  be  recorded  and  the  angle  may  be  programmed. 

The  second  method  occurs  when  the  number  of  points  is  relatively 
small  and  all  the  points  can  be  stored  on  one  file. 

The  two  methods  described  above  are  relatively  specific  and  require 
definite  limitations  on  the  data.  The  third  method  is  more  general  and 
will  work  for  all  cases.  If  there  are  an  odd  number  of  data  pairs,  simply 
key  in  an  extra  data  pair  and  store  it  as  any  other  point.  The  keyed-in 
point  wrailc’  "ither  be  a duplicate  of  the  first  data  point  punched  on  paper 
tape  or  a duplicate  of  the  last  data  point  punched  on  paper  tape.  This 
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extra  point  can  be  added  to  the  paper  tape  when  it  is  punched  or  it  can 
be  programmed.  In  either  case,  an  even  number  of  data  pairs  will  result. 

Table  A-l  lists  the  registers  used  by  the  program  and  the  value 
stored  in  each.  This  table  also  includes  the  inputs  required  and  these  are 
indicated  by  the  word  "input"  enclosed  in  parenthesis  after  the  explan- 
ation of  the  value  stored. 

Figure  A-3  is  a sample  teletypewriter  printout  of  the  data  punched  on 
paper  tape  and  Figure  A-4  is  a sample  printout  of  the  data  printed  as  it 
w as  being  plotted. 

Figure  A-5  is  the  plot  of  Angle  vs  Intensity. 


Register  Table 


Register 


Value  Stored 


RO 

R1 

R 2 

R3 

R4 

R5 

R 6 

R7 

R8 

R9 

RIO 

R 11 

R12 

R 50 

RSI 

R100 

A 

B 

Y 

Z 


Min.  angle  (input) 

Max.  angle  (input) 

No.  of  files  (input) 

Increment  between  angle  labels  on  abscissa 

Value  of  angle  label 

Min.  x for  scaling  plotter 

Min.  value  of  intensity  (input) 

Max.  value  of  intensity  (input) 

Increment  between  intensity  labels  on  ordinate 

Value  of  intensity  label 

Min.  Y for  scaling  plotter 

No.  of  labels  on  abscissa 

No.  of  labels  on  ordinate 

Label  counter 

No.  of  points  to  be  plotted  (input) 

Data  Storage 

File  no.  of  data  file  (begins  with  File  1) 
Register  counter 

Select  code  of  cassette  unit  (input) 

Register  counter 


TABLE  A-l 

Register  Table  With  Inputs  for  Angle  vs  Intensity  Program 
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0:  r,.H  L 

l:  ENT  "XLENGTH" ? R15j  "YLEHGTH" > Rib  L 

ENT  " ABSCISSA  USED" < R17»  "ORDINATE  USED" •RIB  l 
:•  • ..'LI.,,  A ? E 1 5 ? 0 j k 1 b 5 AXE  1 ? 1 > . 5 > . b I. 

4:  R15-RI7  fO  R42 5 F:  16  R 1 8 TO  R4  3 t 

5:  EFT.'  TO  PITER 1 8 TO  R12  C 

6 • k'EH  l'k  » Rb  j Ro  ? R 1 8 » R4 1 C 
•:  ■ F:4 1 I P10+R9  TO  R15PRT  RO»F:l >R6»R7.«R41  l. 

: EN  i ’!!  1 N > R0  > " XMAX  ’ > R 1 ? V M I N " > R6 > i'Mh.s  % R 
ABS  ■: R1  - R©  ■ ■'R 1 1 TO  R35R0+R3  TO  R45  t TO  R40  C 
10!  Rl-F 42 v R1-R0)  TO  R5  E 
11!  C L R5)Plj0>Rie  [ 

T:  LTR  R4<  . 2»  212!  PL.T  R4  t 

i 2:  1+R40  TO  P405 IF  R40  # R11+1JP4+R3  TO  R45GTO  ! r 

14!  A B C LR7-R6 > / R 1 2 T 0 R 8 5 R 6 + R 8 T 0 R 3 5 1 T 0 R 4 f [ 
lb!  P 7 F'4  '.T'Y  kb.1  TO  R10  t 
lb!  SCL  0 < Pi R16j R7  [ 

17:  F : L 3? LTR  . 2? R9-. 5> 21 1 j PLT  Pi  t 

1 8 ! If  P 40  = I 12  5 1 +R40  FO  R405  R9+K8  10  F.':T..,0  -]  [ 

IT  ENT  Sc. i EC-T  CODE  VO  ' NO . FILES  -FT  I 
30:  1 TO  H E 

■A:  0 TO  B L 

PET  1 F '2  ■ 5 E' ! 1 10  B?  IF  R 4 1 - P * PT  JHP  0 [ 

83 ‘ SGC  " t 

24:  RCF  Aj  F'MT<  f! 1 R4  1 R2  + 4'  ; 5 PR  T A C 

Figure  A-l.  Angle  vs  Intensity  Plot  Program 
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fi+1  TO  fl  L 


1 

26:  IF  H « R2+HGT0  ~5  C 

27:  1 TO  n ; L BF  fl*R505PRT  "FILE  H LORDED"  L 

28:  0 TO  2 l 

28:  CCL  R5»R1»R10»R7  [ 

30:  F'L T R0iR(50+Z>  t 

31:  IF  R41/R2-1  # Z5R0+R13  TO  R05Z+1  TO  Z5GTO  1 L 

32:  fi+1  TO  ft?  IF  fi  <=  R25R13+RO  TO  R05  0 TO  Z5LDF  H»R5&5GTO  L 

33:  PRT  "END  OF  DfiTfi"  C 

34:  END  C 

Figure  A-l.  Angle  vs  Intensity  Plot  Program  (Cont'd) 


ft: 

1 : T, 

1 : 

•2  f 

! Its-,  tt  < hXI  ii  i.  . ■ 5 1 

LTR 

4 . 5 .<  b . 5 '221?  PLT  ' Nii'.-i.L  ' LEG;  F 

HO 

1 _i  1 . 4 7 ' 

3 : 

LTF' 

4 . 5 r b . 3' 221 5 PLT  INI  ENG  1.  TV*  DEG 

i-'i  ;i  i'  i 

4: 

LTF 

4.5'  . In  22 1 5 PLT  "liNGLC  ■ DEG  > " 1 

5 : 

LTR 

0.2' 3, 2225 PLT  ' INTENSITY^ DB > “ 

[ 

6*. 

ENT 

■ ; M t n > R0  > " . : " . r i ? " no  . l abfi 

’ R1 1 C 

i’  * 

MBS 

’• F' 1 - F'0  > R 1 1 T U R 5 FO+Ro  ! U R4  5 

1 

10  F50  L 

y ■ 

Rl-i 

10  9 > < R 1 -R0  ■'  TO  F:5  C 

3 : 

SCL 

R 5 * R 1 5 0 > 7 C 

1 0: 

LTR 

P4 . . 6j  21 25  PLT  P4  C 

11! 

1 +F"I 

O TO  F: 505  IF  R50  # 19  5R4+R3  TO 

R 4 

5 GTO  -1  [ 

12: 

ENT 

" VM IN". R6 . " VMflX " » R7 , " NO . LABEL 

C ’’ 

? R 1 £ I 

13: 

MBS 

v R 7 F: 6 > / R 1 2 TO  R85R6+R8  TO  R9  5 

1 

TO  R50  L 

14: 

R7-< 

7-6XR7-R6)  TO  RIO  t 

15: 

SCL 

0 . 1 0 . R 10’ R 7 t 

1 6: 

LTR 

. 3.’ R9t  21 15  PLT  R9  C 

17: 

IF  F 

50  = R 1 2 5 1 + R 50  T 0 P 5 O 5 R S + P 9 T 0 

R95  QTO  -1 

IS: 

ENT 

" SEL ECT  CODE " . V « " NO . F I LES ' . R3 

L 

IS: 

1 Tl 

A [ 

20: 

1 00 

TO  B [ 

21 : 

RED 

IjKl.sb+1  to  e;  if  rsi  fexoo  # 

e; 

JMP  0 I 

22: 

7 c r 

i L 

2 ;: 

RCF 

A ’ I 1 O O j R 1 51  F 2 + 2 9 > 5 F F:  T A f 

■4: 

H+  1 

TO  A L 

Figure  A-2.  Angle  vs  Intensity  - Plot  Parameters  Keyed  in 
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IF  H # F'2  + 1 ; OTO  20  [ 


26:  1 TO  fl?  LDF  ft ? R1 00 j F'RT  "FILE  ft  LOADED"  C 

27:  y to  2 [ 

28:  SCL  R5»R1-R10jR7  t 

20 : PLT  R0  j R '■  1 00+Z  > 5 F'RT  " R0= " < R0 » 1 R ■,  1 00+Z  > = " « p l 00+Z  |. 
30:  IF  R53  R2-1  # Z5R0+R13  TO  R05Z+1  TO  25GTQ  1 [ 

31:  ft+i  TO  ft: IF  ft  # R25 1+R0  TO  RO5  0 TO  2 5 LDF  Fo  R100: GI 
32:  PF'T  "END  OF  DftTfl"  C 

33:  END  [ 


Figure  A-2.  Angle  vs  Intensity  - Plot  Parameters  Keyed  in  (Cont'd) 
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ANCLE  VS  INTENSITY 


i:  ^c!r^nirrirrT7\ 

1,  1,  .5,  .5; 


2:  /iTR  4.5,  6.5,  221> 
I PLT  "ANCLE  (DEC) 

- RANGE- (0- 45)  ’’  ^ 


3:  /tTR  4.5,  6.3,  22HX 
PLT  "INTENSITY  (on) 
-RANCE  (-60-0) " 


SCALE  PLOTTER  FOR  ENTIRE 
PLOTTTNC  SURFACE  (8  1/2  x 11). 


WRITE  ANCLE  (DEC)  - RANCE 
(0-45)  ON  THE  PLOT. 


WRITE  INTENSITY  (DB)  - RANCF 
(-60-0)  ON  THE  PLOT. 


X 

/ABS  (P1-R0)/RH 
PI  3 ; 

PP+P3  i.R4; 

\)  -*R50 


LABEL  THE  X AXIS. 


LABEL  THE  Y AXIS 


READ  FIRST  SIX  DATA  ELEMENTS 
ON  PAPER  TAPE:  XMIN,  XMAX , X 

INCREMENT,  VMTN , YMAX , AND 
NUMBER  OF  POINTS  RESPECTIVELY 
SEE  fig. 


DEFINE  THE  NUMBER  OP  LABELS 
ON  X AND  Y AXES  RESPECTIVELY . 


CALCULATE  INCREMENT  BETWEEN 
THE  LABELS  ON  THE  X-AXTS  AMD 
THE  VALUE  OF  THE  FIRST  LABEL. 
INITIALIZE  A LABEL  COUNTER. 


W 
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COMPUTE  XMTN  FOR  SEALING  ON 
THE  PREVIOUSLY  DRAWN  AXES. 


SCALE  USED  FOR  WRITING  THE 
LABELS  ON  THE  X AXIS. 


WRITE  THE  LABELS  ON  THE  X AXIS 
AT  THE  PROPER  TICK  MARK,  AND 
PROCEED  AFTER  ALL  THE  TICK 
MARKS  HAVE  BEEN  LABELED. 


THIS  PORTION  OF  THE  PROGRAM 
CALCULATES  THE  SCALING  AND 
VALUES  FOR  THE  V AXIS  LABELS 
AND  PLOTS  THEM  TN  THE  SAME 
MANNER  AS  WAS  DONE  ABOVE  FOR 
THE  X AXIS. 

(CONT.  ON  NEXT  PAGE) 
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16  : 


17: 


18: 


19: 


20: 


21: 


21: 


22: 


1— >A 


V 

aoo-pB) 

a 

(^RED  1,  RB>j 

^±L=?b  y 


ft 


YES 


TF  RSI /R2+  lOOyrF—  ^/iMP  0 


NO 


CONTINUATION  OF  V AXIS 
LABEL I NO  - (EXACTLY  SAME 
PROCEDURE  AS  FOR  X AXIS) 


THE  "SELECT  CODE"  DIRECTS  THE 
CALCULATOR  TO  THE  PROPER 
CASSETTE  MEMORY  UNIT.  "NO. 
FILES"  SETS  THE  NUMBER  OP 
FILES  REOUTRED  FOR  DATA 
STORAOE . 


SET  THE  FIRST  CASSETTE  PTLE 
NUMBER  TO  ONE. 


INITIALIZE  A REOTSTER 
COUNTER. 


TAPE  READER  IS  CALLED  (RED  1, 
. . . ) , READS  1st  DATA  NUMBER 
AND  STORES  IT  IN  REOTSTER  RB . 
THE  REGISTER  IS  THEN 
INCREMENTED. 


TEST  TO  DETERMINE  WHETHER 
ENOUGH  DATA  HAS  REEN  READ  TO 
FILL  THE  CURRENT  FILE.  IF 
MORE  DATA  IS  NEEDED  ANOTHER 
POINT  IS  READ. 


WHEN  ENOUGH  DATA  IS  READ  IN 
TO  FILL  A FILE,  THE  CASSETTE 
UNIT  TS  CALLED. 
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if  - 

23:  /I^CFTTRlOO 
I R (R51/R2+99) 
PRTA 


DATA  IS  RECORDED  INTO  THE 
CURRENT  FILE  BEGINNING  WITH 
REGISTER  R100  UNTIL  ALL  THE 
DATA  IS  RECORDED.  THE  FILE 
NUMBER  PRINTED  OUT. 


1 


FILE  NUMBER  IS  INCREMENTED. 


TEST  WHETHER  ALL  THE  DATA  HAS 
BEEN  READ  IN  AND  RECORDED. 


THE  FIRST  DATA  FILE  IS  LOADED 
INTO  THE  CALCULATOR. 


INITIALIZE  A REGISTER  COUNTER. 


SCALE  THE  PLOTTING  AREA 
DEFINED  BY  THE  "PEVTOUSLv 
DRAW  AXES. 


PLOT  ONE  VALUE  OF  ANOLE  VS 
INTENSITY  AND  PRINT  OUT 
EACH  VALUE  AS  TT  IS  BEING 
PLOTTED. 


30 


VES 


<1f  R51/R2- 


TF  ONE  FILE  H AS  BEEN  PLOTTED 
1 / |>-i  / R0  + P13^R(TlGO  ON,  OTHEPWTSE  GO  BACK  TO 
f Z+1->Z;  PLOT  ANOTHER  POINT. 

VsTQ-i y 
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NO 


L _ 

31:  | A+ 1— »A 


INCREMENT  THE  PILE  NUMBER. 


IF  ALL  THE  DATA  HAS  BEEN 
PLOTTED  GO  ON,  OTHERWISE  LOAD 
ANOTHER  FILE  AND  CONTINUE 
PLOTTING. 


MESSAGE  TO  OPERATOR  THAT  ALL 
THE  DATA  HAS  BEEN  ^LOTTED. 


MESSAGE  TO  THE  CALCULATOR  THAT 
PROGRAM  IS  TERMINATED. 
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Data  As  It  Appears  On  Paper  Tape 


Min. 

Angle 

(deg) 

0. 

<2 1 .07 
40  .60 
30.37 
01  .07 
09  .50 


Max.  Angle  Min.  Max.  No. 

Angle  Inc.  Inten.  Inten.  Points 

(deg)  (deg)  (db)  (db) 


45 . 00 

1 . 

00 

-60 

.00 

0 . 

46 

-0 

. 3d  — 

17. 

.54 

-28 

.00 

-34. 

. 79 

-35 

.47 

-40  . 

, 12 

-30 . 

,06 

-24  . 

.37 

28 

.45  - 

05. 

.03 

-04 

.40 

-25. 

.26 

-40 

. 1 4 

-18. 

.49 

-22. 

.50 

-26. 

.09 

37 

.71  - 

46. 

.03 

-35 

.10 

-33. 

. 4-7 

-34 

.43 

-36. 

.34 

-36. 

. 40 

-32. 

.77 

-0 

.03  - 

16. 

. 50 

-00 

.44 

-26, 

.04 

-28 

.80 

-37. 

.33 

-*9  . 

.09 

-29. 

.06 

00 

. 16  - 

0 1 . 

.75 

-32 

.03 

-20  , 

.00 

-25 

. 1 1 

Intensities  at  various  angles  (db) 


Figure  A-3.  Sample  Hard  Copy  of  Paper  Tape  Data 


RO= 

R ( 100+Z ) = 
RO= 

R ( 100+Z ) = 
RO= 

R (100  + Z ) = 

RO= 

R ( 100+Z ) = 
RO= 

R (100+Z ) = 


0.00 
-21.07 
1.00 
- . 38 

2.00 
-17.54 

3.00 
-28.00 

4.00 
-34.79 


Figure  A-4  . Sample  Calculator  Printout  of  Plotted  Data 
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APPENDIX  B.:  TRAJECTORY  GROUND  TRACE  ON  A MERCATOR  PROJECTION 

The  next  program  plots  the  ground  trace  of  a trajectory  on  a 
Mercator  Projection.  Each  value  of  latitude  undergoes  a calculation 
which  scales  it  to  Mercator  latitude.  The  calculation  is  of  the  form 

1-)  ecoc( 90  - $ , ) „ /., 

ir_ 

1-  ecos(90  - $r) 

% 

Y is  the  Mercator  latitude. 

A listing  of  the  program  is  shown  in  Figure  B-l.  Statements  4-9 
perform  the  calculation  for  Mercator  latitude. 

Program  Statements  11-14  record  data  onto  cassette  tapes  and 
Statements  15-22  reload  the  data  and  plot  it. 

Table  B-2  lists  the  registers  used  by  the  program,  defines  the 
value  stored  in  each  and  which  are  inputs  that  are  keyed-in  by  the 
operator. 

Figure  B-2  is  a sample  ground  trace  plotted  on  a Mercator 
Projection. 


}] 


(90-  | ) 

Y=  ln[ 1 / { ( tan  )( 
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Register  Table 


Value  Stored 


Not  used 


No.  of  data  files  (input) 


Intermediate  values  in  calculation 


of  the  Mercator  latitude 


No.  of  points  (input) 
Data  storage 


File  Number  of  Data  File 


Register  counter 

Select  code  of  cassette  unit  (input) 
Register  counter 


Table  B-l 


Register  Table  with  Inputs  for  Trajectory  Ground  Trace  Program 


0 : 

ENT  " SELECT  CO HE 

" < Y ’ " NO . 

FIL 

E: 

i " ’ R 2 [ 

1 : 

142  TO  R 

5151  TO 

R t 

2: 

0 TO  B C 

5 

RED  1 ’ R ( 

1 00 +B  1 ' R 

1 0 1 + B > I 

4 : 

90-R' 100 

+ B > TO  R 

4 I 

5: 

COS  R4  + . 

082  TO  R 

3 C 

6 : 

*.  1 1 + R 0 ) / 

1 -R  3 .>  > t 

.041  TO  P 

3 [ 

“7  . 

1 ■ 

TfiH  (R4/ 

2 > TO  F 4 

[ 

ft : 

R4  + R3  TO 

R3  I 

9: 

LOG  ■ 1 R 

3)  TO  R( 

100 + 8)  [ 

10: 

B + 2 TO  E: 

• IF  R 5 1 / 

92  B!GTO 

3 C 

1 1 : 

SSC  V [ 

12: 

RCF  ft » R 1 00  ? R R5 1 

R1 2 + 9 9 1 5 p 

RT 

r; 

SF'C  2 I 

13: 

ft+1  TO  R 

[ 

14: 

IF  R # R 

2+1 ; GTO 

2 [ 

15: 

1 TO  ft : LDF  R * R 1 00 , R <; R5 1 /R 

. j + y 

9 

[ 

16: 

0 TO  2 C 

17: 

SCL  20  ? 3 

:■  0 » - . 750 

93 17'. 750 

+ 31 

C 

18: 

R LI  R 1 101+2 ' R ( 1 

90 +2 ) [ 

19: 

IF  R51/R 

2-2  # ZS 

7+2  TO  2? 

ITU 

- 

1 C 

20 : 

R+l  TO  R 

; i f r < = 

R2  j 0 TO 

l. 

I'F 

R ' R 1 00 1 F 1 1 • 1 

2 [ 

2 1 8 

PRT  "END 

OF  DRTR 

* I 

2 ! 

END  [ 

Figure  B-l.  Program  to  Plot  Trajectory  (iround  Trace  on  a Mercator 

Projection  (Cont'd) 
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GROUND  TRACE  ON  MERCATOR  PROJECTION 


0:  /ENT  "SELECT  CODE,"' 

( Y,  "NO.  FILES", 

R2 


2 


1:  142  -*R51;\ 

' 1 -A  J 


: Co- 


*B 


3:  /^ReD  1,  R(100+B)  , 

I R ( 10 1+B) ? 

PRT  R ( 100  + B)  , P.  ( 10 1+B); 
SPC  1 

4:  (qO-R  (100->-B)^*R4y 


>:  (COS 


R4  * .082-*R3 


3> 


6 : 


(\  (1+R3)/(1-R3)7\ 
V.  04 1 >R3  J 


7: 


fTAN  (P4/2)  -R4 


SELECT  APPROPRIATE  CASSETTE 
UNIT  AND  DEFINE  MAX.  NUMBER  OF 
FILES  FOR  DATA  STORAGE. 


NUMBER  OF  POINTS  DEFINED  AND 
FTLE  ONE  IS  DESIGNATED  TO  BE 
THE  FIRST  FILE  LOADED. 


INITIALIZE  A REGISTER  COUNTER. 


READ  DATA  PROM  PAPER  TAPE  AND 
STORE  IT  IN  APPROPRIATE 
REGISTER.  PRINT  OUT  VALUES 
AS  THEY  ARE  READ  IN. 


CALCULATE  ORDINATE  (LATITUDE) 
OF  MERCATOR  PROJECTION 
ACCORDING  TO; 


Y=l« 


f +eeos('?0-.fpj\ 

</  — — 77— 7^-rJ 


n 


V = ORDINATE  OF  MERCATOR 
PROJECTION 

e = EARTH'S  ECCENTPTCTTY 
<£p  = LATITUDE 

90"  $p  - COLATITUDE 
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CONTINUATION  OF  CALCULATION 
OF  LATITUDE  FOP  MERCATOR 
PROJECTION. 


INCREMENT  REGISTER  COUNTER. 


TEST  WHETHER  ENOUGH  DATA  HAS 
BEEN  READ  TO  FILL  ONE  FILE. 


CALL  APPROPRIATE  CASSETTE 
UNIT. 


RECORD  DATA  INTO  FILE  & PRINT 
FILE  NUMRER. 


INCREMENT  FTLE  NUMBER. 


NO  , 


TEST  WHETHER  FTLE  NUMBER 
EXCEEDS  MAX.  FTLE  NUMBER.  IF 
CURRENT  FILE  NO.  EOUALS  MAX. 
NO.  THEN  ALL  DATA  HAS  BEEN 
RECORDED. 
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r 


1 5 : / I^AT ' 

( LDP  A,  R100, 
R (R51/R2+99) 


17:  rSCL  20,  3607- 
-.7509317, 
-.7509317 


18:  ^PLT  RjIOl+7) , 
R ( 100+Z ) 


LOAD  FIRST  RECORDFD  FILE  HACK 
INTO  CALCULATOR  FOR  PLOTTTNO. 


INITIALIZE  A REGISTER 
COUNTER  FOR  PLOTTING. 


SCALE  PLOTTER  FOR  MERCATOP 
PROJECTION . 


PLOT  LONGITUDE  VP.  LATITUDE 
ON  MERCATOR  PROJECTION. 


n 

V 

20:  'v  VES 


IF  A<*  R2 


tl 


DP  A,  R100,' 
R (R51/R2+99) 
-GTO-2 


TEST  WHETHER  ALL  DATA  ON 
CURRENT  FILE  HAS  DFEN  PLOTTED. 


IF  ALL  DATA  ON  CURRENT  FILE 
HAS  BEEN  PLOTTED  THE  FILE 
NUMBER  IS  INCREMENTED. 


TEST  WHETHER  ALL  FILES  HAVE 
BEEN  LOADED  & PLOTTED.  IF 
NOT,  NEXT  FILE  LOADED  AND 
PLOTTED. 


X 


21: 

^PRT 

22: 

END^) 



"END  OF  DATA  " 


MESSAGE  TO  THE  OPERATOR  THAT 
ALL  THE  DATA  HAS  REFN 
PLOTTED.  MESSAGE  TO 
CALCULATOR  THAT  PPOORAM  IS 
TERMINATED. 
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le  Ground  Trace  on  Mercator  Projection 


APPENDIX  C:  TIME  vs  HEIGHT  PLOT  PROGRAM 

The  program  on  the  following  page  is  labeled  TIME  vs  HEIGHT, 
however,  the  same  program  can  be  used  to  plot  time  vs  any  other 
parameter,  both  of  which  are  punched  on  paper  tape. 

This  program  does  not  draw  or  label  any  axes.  The  plot  is 
drawn  according  to  the  scale  shown  just  as  if  the  axes  were  plotted. 

At  the  time  this  program  was  used,  the  axes  were  labeled  with  a 
typewriter  for  report  purposes. 

The  flow  chart  following  the  program  listing  will  explain  how  the 
program  works. 

Table  C-l  lists  the  registers  used  by  the  program,  the  values 
stored  in  each,  and  specifies  which  are  inputs. 

Figure  C-2  shows  the  output  plot.  The  abscissa  is  in  units  of 
time  (minutes)  and  the  ordinate  is  in  height  (feet). 
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f 


j#*i 


Register  Table 


Register 


Value  Stored 


R0-R1 

R2 

RSI 

R 100  ... 

A 

B 

C 

X 

Y 

Z 


Not  used 

No.  of  files  (input) 

No.  of  points 
Data  storage 
File  counter 
Register  counter 
Not  used 
Not  used 

Select  code  of  cassette  unit  (input) 
Register  counter 
Table  C-l 

Register  Table  with  Inputs  for  Time 
vs 


Height  Program 


0 : EH r " SELECT  CODE " > Y » " NO . F 1 LES " , R2  [ 

l:  142  TO  R51J1  TO  R [ 

2--  0 TO  B t 

• RED  1 j R «.  .1  OO+Ef  1 ’ R 1 1 0 1 f B ) C 
4!  B+ 2 T 0 B 5 IF  R 5 1 - R 2 : > B 5 G T 0 3 C 
5!  SSC  Y C 

t : Rl  F ft  i F 1 00  > R r,  R5 1 Rg  +99  1 5 PRT  R ! SPC  2 l 

?!  fi+1  TO  fl  [ 

8:  IF  ft  # R2+35GTO  2 C 

•?:  1 TO  fl!  LDF  ft.  R 100  [ 

10:  O TO  Z [ 

1 1 : 3 C L 5 0 0 0 0 1 1 j 2 5 0 0 0 0 0 ? 0 1 7 0 [ 

12:  PI.  T R<:  !0l+2>»Ra00+Z)  t 

13:  IF  R51.-R2-2  # 25  2+2  TO  25GTO  -1  C 

14:  ft 4 1 TO  ft!  IF  ft  <=  R258  TO  2!  LDF  A«P100SGTO  -2  C 

15:  F FT  END  OF  DATA’  C 

16:  E HD  [ 

FIGURE  C-l.  Tine  vs  Height  Program 


TIME  VS  HEIGHT 


I 


SELECT  APPROPRIATE  CASSETTE 
UNIT  AND  DEFINE  MAXIMUM 
NUMBER  OF  FILES. 


NUMBER  OF  POINTS  ASSIGNED  AND 
THE  FIRST  CASSETTE  FILE  IS  SET 
TO  ONE. 


INITIALIZE  REGISTER  COUNTER. 


READ  DATA  AND  STORE  IT  IN  THE 
APPROPRIATE  REGISTERS 
BEGINNING  WITH  R100 , R101  FOR 
THE  FIRST  SET. 


INCREMENT  REGISTER  COUNTER. 


TEST  TO  DETERMINE  WHETHER 
ENOUGH  DATA  HAS  BEEN  STORED  TO 
FILL  THE  CURRENT  FILE. 


CALL  THE  CASSETTE  UNIT. 


RECORD  DATA  ONTO  CASSETTE  FILE 
AND  PRINT  OUT  DATA  AS  IT 
IS  BEING  STORED. 
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7: 


A+1-^A 


INCREMENT  PILE  NUMBER 


TEST  TO  DETERMINE  WHETHER 
PILE  NUMBER  EXCEEDS  THE 
MAXIMUM  FILE  NUMBER. 


LOADS  FIRST  DATA  PILE  BACK 
INTO  THE  CALCULATOR  FOR 
PLOTTING. 


INITIALIZE  REGISTER  COUNTER 
FOR  PLOTTING. 


SCALE  PLOTTER  FOR  PLOTTING. 


PLOT  ONE  DATA  POINT. 


TEST  TO  DETERMINE  WHETHER  ALL 
DATA  FROM  THE  CURRENT  FILE 
HAS  BEEN  PLOTTED. 


INCREMENT  FILE  NUMBER 


TEST  TO  DETERMINE  WHETHER  ALL 
FILES  HAVE  BEEN  PLOTTED. 


MESSAGE  TO  THE  OPERATOR  THAT 
ALL  THE  DATA  HAS  BEEN  PLOTTED. 


MESSAGE  TO  CALCULATOR  THAT 
THE  PROGRAM  IS  TERMINATED. 
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APPENDIX  D:  Radar  System  Simulation  Model  Block  Diagram 

Figure  F-l,  on  the  following  page,  is  a sample  of  the  major  radar 
subsystem,  environmental,  and  signal  processing  capabilities  of  the 
Radar  Simulation  (RADSIM)  program.  The  information  contained  in  this 
block  diagram  is  by  no  means  complete  since  it  would  be  impossible  to 
include  all  the  capabilities  on  any  meaningful  chart.  The  generalized 
plot  program  was  exercised  extensively  to  plot  data  generated  by  this 
program. 


93 


ANTENNA-TRANSMIT  PATTERN  INTERLEAVED  ANTENNA  ARRAY 


cx 


1 . Radar  Simulator 
Block  Diagram 
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DETECTION  CRITERIA 


APPENDIX  E:  Original  RAE  Program 


0: 

SCL 

0 * l 4 « 0 

205  AXE  2,2 

,1,1 

51  TR  4,1,22 

1: 

PLT 

' TIME 

MINUTES  AFTER 

BURNOUT)'  L 

2 : 

LTR 

2.5, 0 , 

.21 5 PLT  "FI 

CURE 

" C 

■j  ■ 

FXD 

a;  ENT 

'S1  = " , R0?  SPC  2 

[ 

4: 

IF  R0>05GTO  "LflRD"  l 

5: 

SPC 

25  PRT 

'LABEL  R A 

E"  C 

6: 

LIP 

0 s 1 9 * 6 

,221 5 PLT  "E 

" [ 

i'  ■ 

LTR 

0.8,  19 

. 6, 221 5 PLT 

"A" 

c 

8: 

LTR 

1.6,19 

.6,2215 PLT 

" R " 

[ 

9: 

LTR 

. 2 1 1 9 . 

2, 221 5 PLT  " 

DEC 

c 

10: 

LTR 

1.4,19 

. 2, 2215 PLT 

"HM' 

[ 

11: 

GTO 

"EH"  t 

12: 

" LflRD" ? SPC 

2 5 PRT  "LABEL  F 

A E RATES" 

13: 

LTR 

0 , 19,6 

,2215 PLT  "E 

" C 

14: 

LTR 

0 . 8 , 1 9 

.6, 2215 PLT 

"A” 

C 

15: 

LTR 

1.6,  19 

.6, 221 5 PLT 

" R " 

C 

16: 

LTR 

. 2, 19. 

2, 2215 PLT  " 

DEC 

t 

17: 

LTR 

. 2 , 18. 

6, 221 5 PLT  " 

SEC 

t 

13: 

LTR 

1.5,  19 

.2, 221 5 PLT 

"FT' 

[ 

r?: 

LTR 

1.2,  18 

.6,2215  PLT 

"SEC 

[ 

20: 

"EH' 

SENT  " 

TM I N= " , R 1 , " 

TMA> 

:=" , R2 , "DT  = " 

21 : 

Rl+F 

3 TO  R1451  TO  R 1 3 

C 

22: 

PRT 

"THI N= 

" , R 1 , "TMAK= 

",R2, "DT=",R3  C 

23: 

R2-< 

7 6)  <R 

2-R1)  TO  R 1 

8 t 

24: 

SCL 

PI  8, R2 

,0,20  [ 

FIGURE  E-l.  Original  RAE  Program 
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LTR  Pl|.  l .5-221  I. 

PLT  R 1 4 5 R 1 4+P3  TO  PI 4 T 

PI 3+1  10  R13  t 

IF  PI 3 ■ = 115GT0  -3  t 

0 TO  R 1 3 r 


ENT 

" EN I H= " > R4  * 

" EHRX= " i 

ENT 

HN I N= " > R7 « 

"RMRN  = " ■ 

ENT 

" PI  1 1 N~ " ? R 1 0 

• "RMRN= 

FPT 

“EMIN=" > P4» 

"FMRX=" 

PRT 

" Hf'1 1 N= " ' R7j 

"RHRX-." 

PPT 

" RM I N= " , R 1 O 

* "RMRX= 

R4+P 

6 TO  R1551 

TO  PI 3 1 

R5-  ■: 

10  9) < R5-R4 

> TO  PI’ 

SCL 

O'  14- PIS- P5 

t 

LTR 

0 > R 15*221  C 

PLT 

Ri!?;  R15+R.S 

TO  R15  1 

PI  3 + 

1 TO  R13  [ 

IF  F:  1 3 <=  07JGTO  -3  L 

0 TO 

P 1 3 C 

R7+P 

9/3  TO  P16 

C 

1 TO 

R13;PS‘-U0 

/ 9 > • Ry- 

SCL 

0'  1 4 ’ R 2 O ’ R 8 

L 

LTR 

. 8 - P 1 6 ' 82 1 

I 

PLT 

o 1 ' ; p 18  + p 9 

T 1 ! R 1 6 

P i 3 f 

1 TO  R 1 3 [ 

Figure  E-l.  Original  RAE 


P5> "Lt="»R6  r 
R8-  " It H — " ? R9  L 
« F:  1 1 - " DP  "-Pi 
P5 ' " IiF=  , R*  [ 
RQ j " DR—  ‘ - R9  L 
> P 1 1 t DR  " j P i 


?7>  TO  p£0  [ 


Program  (Cont'd) 
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50:  IF  R 13  <=  08 5 GTO  -3  I 

51:  0 TO  R 1 3 t 

52:  R10+R12  TO  R.17  5 1 TO  R13  [ 

53:  R 1 1 - ( 10/9 ) ( R 1 1 -R.  1 0 > TO  R21  C 


54: 

SCL 

0S 

1 4 s R 2 1 s R 1 1 

t 

er  cr  • 

.j  .j  • 

LTR 

1.! 

5 s R 1 7 s 2 2 1 

C 

56: 

PLT 

R 1 ' 

7 5 R17+R12 

TO  R17 

[ 

57: 

R13+1 

TO  R 1 3 C 

58 : 

IF  R 1 3 

< = 07s GTO 

-3  [ 

59: 

SCL 

Rl: 

3 s R 2 s R 1 9 s R 

5 r. 

60: 

FKD 

cl  !•  : 

5 PC  5 CFG  1 

35 PRT  ' 

'T 

61 : 

ENT 

"T 

= " s X s " E= " s 

V C 

62: 

PRT 

!• 

Vs PLT  Ks  Vs 

SF'C  C 

6*  " 

IF  1 

FLG 

13=05  GTO 

-2  I 

64: 

SCL 

Rl 

8 s R 2 s R 2 0 s P. 

8 r. 

65: 

C F G 

13 

5 PEN  5 SF'C 

2 5 PRT 

"T 

66 : 

ENT 

" T 

= " s X s "fl="s 

V C 

67 : 

PRT 

X !• 

Vs PLT  X s V s 

SF'C  t 

68: 

IF 

FLG 

13  = 0 5 GTO 

-2  [ 

69: 

SCL 

Rl 

8 s R2  s R2 1 s R 1 1 [ 

70: 

CFG 

13 

5 PEN  5 SF'C 

25  PRT 

"T 

71: 

ENT 

"T 

- " < X s " R = " s 

V t 

70  ■ 

( 4..' 

PRT 

X s 

V 5 PLT  X s V 5 

SF'C  C 

< O • 

IF 

FLG 

13=05 GTO 

* *■'  li 

74: 

END 

t 

Figure  E-l.  Original  RAE  Program  (Cont'd) 
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APPENDIX  F:  RAE  Plot  Propram  - Data  Input  Via  Punched  Cards 

The  program  listed  in  this  appendix  is  used  to  plot  range,  azimuth, 
and  elevation  as  well  as  range  rate,  azimuth  rate  and  elevation  rate  in 
the  same  way  as  the  program  described  in  Section  VI  of  this  report.  In 
this  version  of  the  program,  the  data  is  input  from  punched  cards  and 
the  first  card  contains  the  plot  parameters;  i.e.,  the  max  y and  min  y 
values,  the  min.  x value,  the  increment  between  data  points,  and  the 
number  of  points.  The  program  operation  is  very  similar  to  that  of  the 

program  in  Section  VI  so  that  the  register  tables  and  flow  charts  in 

\ 

that  section  can  also  be  used  for  this  program. 
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PRT  " HANLEY " * SPC  * ENT  " XLENGTH" > R 1 5 * " YLENGTH " * R 1 6 - 
"XUSED" » R17* "YUSED" * R 18  C 


1 : 

ENT 

"RAE=0 

RATES= 1 " 

* P 0 * F X D 4 t 

O • 

SCL 

0 * R 1 5 * 

9 * R 1 6 ; AXE 

1* 1* .5* .5* 

LTR  2»0* 

o ■ 

R15/ 

R17  TO 

R42SR16/ 

R18  TO  R43* 

2*R17  TO 

R49 

C 

4: 

PLT 

"TIME 

(MINUTES 

AFTER  BURNOUT)"  C 

5: 

IF  R 0 > 0 5 U TO  "LFlR D " 

C 

SPC 

25  PRT 

"LABEL  R 

A E"  C 

?! 

LTR 

0 * 9 . 8 - 

221 5 PLT  " 

E"  [ 

8 * 

LTR 

0 . 4 > 9 . 

8* 221* PLT 

"A"  C 

9: 

LTR 

0 . 8 > 9 . 

8* 221? PLT 

"R"  [ 

10: 

LTR 

. 1 j 9 . 3 

*221* PLT 

"DEG"  [ 

lit 

LTR 

0.  7>  9. 

3*221  * PLT 

"NM"  £ 

12: 

GTO 

"HEAD" 

C 

13: 

"LARD"; SPC 

2*  PRT  "LABEL  RAE 

RATES"  L 

14: 

LTR 

0»  9. 8> 

221 S PLT  " 

E"  C 

15: 

LTR 

0 . 4 » 9 . 

8*221 ? PLT 

"A"  [ 

16: 

LTR 

0.8*9. 

8 >22  IS PLT 

"R"  [ 

17: 

LTR 

. 1*9.6 

*221* PLT 

"DEG"  [ 

18: 

LTR 

.1*9.3 

*22  IS PLT 

"SEC"  [ 

19: 

LTR 

0.7*9. 

6* 221? PLT 

"FT"  [ 

20: 

LTR 

0.6*9. 

3*221  * PLT 

"SEC"  C 

2 1 : 

"HEAD" SENT 

"PNUMB" * 

R48  * " SSC " * 'i 

'*  "DFILE" 

22: 

TBL 

6*  ENT 

"R" * R50* " 

A " * R 5 1 * "E"* 

R52  C 

Figure  F-l.  RAE  Plot  Program  - Data  Input  via  Punched  Cards 
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I F i 4 9 I F 1 1 4 [ 


'•4 

“ XI 

b 

37 


46 

41 

4 

43 

44 


IF 

R50  = 1 

• SF  G 

i r 

IF 

R 51  = 1 

; SF  G 

2 C 

IF 

R52=i 

i SFG 

3 l 

IF 

R48  = 1 

; GTO 

+ 4 t 

FMT 

..  D .. . 

WRT  2 

5 FMT 

Pb  .1 

R 0 1 R 1 

3 ’ R 4 1 

; SF'L 

c 

1 R 4 1 -1 >R13+RD  TO  HI  t 

S S C V ; R C F ft j RQj R 41 5 P R T R 0 j R 1 > R 6 < R 7 » R 4 1 5 S p C 25GT 0 + 
2 C 

SSL  Y5LDF  fljR0>PRT  R0> R1>R6» R7jR41»SPC  2 C 
IF  FLG  4 j GTO  +2  [ 

ENT  " TM I H " ? R20 j " TMftK " < R2 1 t 

ENT  " YM IN"  ? R3£?  "YMflX"  > R23»  "FXD" ' X [ 

FlBS  (R21  -R20>-  R1 1 TO  R35R20  TO  R4  5 1 TO  R40  C 
R2 1 -R42 < R2 1 -R20 > TO  R5  [ 

SCL  R5»R21»0»R165IF  FLG  45 GTO  +3  t 
FXD  1SLTR  R4 ? . 5«  212! PLT  R4  f 

1+R40  TO  R405IF  R40  # R11+2SR4+R3  TO  R4SGT0  -1  C 
BBS  vR23-R22>/Pl£  TO  R85R22  TO  R9j 1 TO  R40  C 
R23- R43< R23-R22)  TO  RIO  [ 

SCL  0»  R1 5»  R10*  R£35  FXI1  X C 

IF  FLG  25R9+R8  TO  R9  C 

" 1 HB  • ; 1 F F LG  1 ; LTR  ■ 6 < R9 , 2 1 1 5 FT  T R9  [ 

IF  FLG  ? * LTR  . 4.R9* 21 1 i PLT  R9  [ 


Figure  F-l.  RAE  Plot  Program  - Data  Input  via  Punched  Cards  (Cont'd) 
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46: 

IF  FLG  3 ? LTR  0»R9>211 

? F'LT 

R9 

C 

4?: 

1+R40  TO  R40? IF  R40  # 

R12 

-95  R 

9 + 3 P y 

TO 

R.  1 : ij  [ 0 

" YL RB " [ 

48: 

ENT  "NO.  FILES"  > R2»  "F'TS-'FILE ' 

1 R40J  " 

SFILE" > R I 

49: 

1 TO  C 5 0 TO  B [ 

50: 

SINT  CR41/5)  TO  R455  0 

TO 

R47 ; 

IF  R2= 

i ; i 

-T0  "2" 

[ 

51: 

IF  R48=15SSC  Y5LDF  R, 

R505 

(R2- 

1 T R40 

TO 

R4  7 ? G T U 

+ 19  [ 

52: 

FMT  "C" 5 WRT  2 [ 

53: 

FMT  *5  RED  2 j R ( 50+B > j R 

•.  r 

< 5 1 +B ) » R 

< 52 +B > 

f R 

; 53+ B » F 

(54  -B 

54: 

/ L 

B + 5 TO  B 5 IF  R40-1 >B: G 

TO  - 

2 [ 

55: 

R47+R40  TO  R47  [ 

56: 

•I* S C V 5 RCF  H ? R5 0 ? R F! 40+4 9 

5PRT 

R [ 

57 : 

IF  R 4 7 - ( R 2 - 1 ) R 4 0 5 G T 0 

“2" 

[ 

58 : 

R + l TO  R5  1+C  TO  C [ 

59: 

IF  C # R2+15  0 TO  B j GTO  -E 

[ 

60: 

"2"5 IF  R4 1/5= I NT  <R41 

/ 5 ) ? 

SFG 

55R41- 

R4 

7 TO  R45 

TO  R 4 6 5 

TO  +3  C 

61: 

R41-R47  TO  R4655INT  < 

r 

R 4 6 • 

5 > TO  R455 

IF 

R2=l ? 0 

TO  B?  GTO 

62 : 

L 

0 to  b;r+i  to  r i 

63 : 

IF  R48=i;GT0  "F'LT " C 

64: 

FMT  "C'JWRT  2 [ 

65: 

FMT  *5REti  2pR<50+B)»F 

'■  5 1 +B ) > F 

(52+B) 

i R 

(53+B) > R 

5 4 + B 

) L 

66:  B + 5 TO  B 5 IF  R45-l>B5GTO  -2  C 


Figure  F-l.  RAE  Plot  Program  - Data  Input  via  Punched  Cards  (Cont'd) 
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If  FIG 

3 1 

. 1 0 + 3 I 

r ■MV  "'I. 

" ; w 

RT  ;.:5  FMT 

+ ! f;  E D 

2 5 R<50+B>  I 

0 -»  i 1 o 

(3 ; 

IF  R46/B5 

GTU  - 

1 [ 

c>  r a » 

S 3 i 

YSRCF  A :> 

R58  j p 

R46  + 49 ) t 

"plt"  ; 

A-R 

2+1  TO  h; 

1 TO 

C5PRT  h;ldf  A ■ P 5 

6 TO  2 

TO 

XSR41-R4 

7 TO 

R47  [ 

ENT  "S 

F"  i 

B C 

SCL  R5 

i R.2 

1 ' R 1 0 ' P 2 3 

C 

PLT  R6 

i P • 

50+2  > B C 

IF  OR25GTO  +3  [ 

1 F R 4 0 - 1 # 2 > < R 4 1 # X > $ R 0+R1 3 T 0 R05  2+1  TO  2 5 1 + X T 0 X > G T 0 

2 C 

fl+1  TO  ft;c+l  TO  c;  IF  C <=  R25R0+R13  TO  R0J0  TO  Z5PRT  A*  LDF  li 
’R505GTO  -3  L 

IF  R47- 1 # Z5R0+R13  TO  R0SZ+1  TO  2IGT0  -4  C 
IF  P49  # 3? R49+ 1 TO  R495PEN  JFXD  45GTO  "HERD"  [ 

PPT  "END  OF  DATA"  C 
END  t 


Figure  F-l.  RAE  Plot  Program  - Data  Input  via  Punched  Cards  (Cont'd) 
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APPENDIX  G:  Doppler  Frequency  Plot  Program 

This  program  computes  and  plots  the  Doppler  frequency  shift  vs 
satellite  time  in  radar  coverage.  The  input  data  is  generated  by  the 
RADC  Trajectory  Program,  available  in  RADC/OCSA,  where  the  range  rate 
of  the  missile/satellite  with  respect  to  the  sensor  is  used  as  input  to 
this  program.  Program  operation  is  the  same  as  that  of  the  Generalized 
Plot  Program  - Data  Input  Via  Punched  Cards,  described  in  Section  V of 
this  report.  The  register  tables  and  flow  charts  are  applicable;  how- 
ever, there  are  four  more  inputs  required  of  the  user.  The  first  is 
radar  frequency  in  megahertz,  the  second  and  third  are  FXDX  and  FXDY 
which  determine  the  number  of  significant  digits  used  to  label  the  x 
and  y axes  respectively,  and  lastly,  SF,  which  scales  the  plotted  data 
from  hertz  to  kilohertz,  etc. 


r 


0:  PRT  "MRNLEY“5FXD  4 t 

1 : ENT  "RHUMB" , R48, "SELECT  CODE" > Y. " DF ILE" iH- "FREQ  CM 

HZ  > " . R30  [ 

2:  R30*10t6  TO  R305 IF  P48=15GTO  +5  L 

3:  FMT  " D ” ? WRT  25FMT  *5  RED  2.  R7.  R6>  RO.  R13.  F:4 1 5 PRT  R7. 

RbjR0.R13i.R415  SRC  2 C 

4:  CR41-1 >R13+R0  TO  R159.84252E8  TO  R2952R30/R29  TO  R31  1 

5:  R6R31  TO  R65R7R31  TO  R7  C 

6:  SSC  Y5RCF  fi.R0.R4i;  PRT  R0.  R1 . R6.  R7»  R13.  R41  ? SF'C  25  G 

TO  +2  [ 

7:  SSC  YSLDF  fi. R 0 ; PRT  R0.R1.R6.R7.R415SPC  2 t 

8:  ENT  "XLENGTH" > R15. "YLENGTH" .Rib  C 


9: 

ENT 

"fiBS 

CISSfi  USED". 

R 1 

7. "ORDINfiTE 

IJS 

:.ED" » R18  L 

10: 

SCL 

0 . R 1 

5.0»R16JflXE 

1. 

1. .5. .5  [ 

11: 

R15/ 

R 1 7 

TO  R425R16/R18 

TO  R43  t 

12: 

2R17 

TO 

R 1 1 5 2R 1 8 TO 

R 1 

2 [ 

13: 

ENT 

" XM I N " » R20 » "XMflX 

• i 

9 

R21. "FXDX".B 

<1 

’ YHIN" . R22.  "YMfi 

X" ? R23 > " 

FXDY" > Z [ 

14: 

fiBS 

CR21 

-R20>/RU  TO  R 

35  R20  TO  R4 5 

1 

TO  R40  [ 

15: 

R21- 

R42C 

P21-R20 ''  TO 

R5 

t 

16: 

SCL 

R5 . R 

2 1 . 0 . R 1 6 t 

17:  FXD  B5LTR  R4. . 4. 222? PLT  R4  t 

18:  1+R40  TO  R405  IF  R40  # RU+2JR4+R3  TO  R4JGT0  -1  t 

19:  fips  <R23-R22>/R12  TO  R35R22  TO  R95 1 TO  R40  [ 

20:  R 2 3 - R 4 3 < R 2 3 - R 2 2 > T 0 P 1 0 t 

FIGURE  G-l.  Doppler  Frequency  Plot  Program 
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A. 


2 1 i 5s CL  @ » R 1 5 » R 1 0 » P 2 3 [ 

22:  FXD  25LTR  . 5*  R9*  21 1 5 PLT  R9  C 

23:  1+R40  TO  R405 IF  R40  # R12+15R9+R8  TO  R95GTQ  -1  [ 

24:  ENT  "NO.  FILES"  t R2>  "F'TS/FILE " > R40»  "SFILE"  > fl  t 
25:  1 TO  C 5 0 TO  B [ 

26:  5 1 NT  <R41/5>  TO  R455  0 TO  R475 IF  R2=15GTO  "2"  C 

27:  IF  R48=l 5SSC  Y5LDF  fin R505 CR2-1 )R40  TO  R475GTO  +19  C 

28:  FMT  "C" 5 WRT  2 C 

29:  FMT  *5  RED  2i  R(50+B)  > R<51+B) » R<52+E:> » R*  53+B)  > R<54+B 

> [ 

30:  8+5  TO  8 5 IF  R40-DB5GTO  -2  [ 

31:  R47+R40  TO  R47  [ 

32:  SSC  Y t 

33:  RCF  H ? R50 > R < R40+49 > 5 F'RT  ft  l 

34:  IF  R47=(R2-1 )R405 GTO  "2"  C 

35:  R+l  TO  R ? 1 +C  TO  C [ 

36:  IF  C # R2+150  TO  Bj GTO  -8  C 

37:  " 2 " J IF  R4 1/5= I NT  (R41/5) 5 R41 -R47  TO  R465  GTO  +3  [ 

33:  R45+5  TO  R455  R45-R47  TO  R465  IF  R2=15  0 TO  B j GTO  +2  C 

39:  0 TO  B5R+1  TO  R l 

40:  IF  R43=1!GT0  +5  C 

41:  FMT  "C" ! WRT  2 C 

4 ;? : FMT  * ! RE D 2 » R < 5 0 + B > > R C 5 1 + B > > R C 5 2 + B ) , R t 5 3 + B > j P <; 5 4 +•  B 

) C 

43:  B+5  TO  B* IF  R46- 1 >B» CTO  -2  t 


Figure  G-l.  Doppler  Frequency  Plot  Proirram  (Cont'd) 
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44:  8 SC  YJPRT  R5RCF  fl»  R50>  R(.R46+49>  [ 

45:  R-R2+1  TO  R? 1 TO  C5SPC  25PRT  fl? LDF  R»R50  [ 

4b:  0 TO  25 R41-R47  TO  R475  PRT  ft  t 

47:  ENT  "SF" »R33SSCL  R5.R21 ,R10, R23  C 

48:  PIT  R 0 » R < 5 0 + Z > R 3 1 R 3 3 [ 

49:  IF  C=R2I GTO  +3  C 

50:  IF  R40-1  « Z=1 5 R0+R13  TO  R05Z+1  TO  Z?  GTO  -2  [ 

51:  ft+l  TO  ft  5 C + 1 TO  C! IF  C <=  R25R0+R13  TO  R05  0 TO  Z5PRT  ft j LDF  ft 
? R505  GTO  -3  [ 

52:  IF  R47-1  # Z=1?R0+R13  TO  R05Z+1  TO  25 GTO  -4  C 

53:  IF  R33  # 15SCL  0(  R15»  0»  R16JLTR  . 3 j 6. 7»  21 1 ! F'LT  "X"5PL 

T R33  C 

54:  PRT  "END  OF  DOT ft”  [ 

55:  END  C 


Figure  G-l.  Doppler  Frequency  Plot  Program  (Cont'd) 
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Sample  Doppler  Frequency  Plot 


5 

5 MISSION  s 

l 0/  * 

ft  Rome  Air  Development  Center  * 


RADC  plans  and  conducts  research,  exploratory  and  advanced 
development  programs  in  command,  control,  and  communications 
(C3)  activities,  and  in  the  C3  areas  of  information  sciences 
and  Intelligence.  The  principal  technical  mission  areas 
are  coomunlcatlons , electromagnetic  guidance  and  control, 
surveillance  of  ground  and  aerospace  objects.  Intelligence 
data  collection  and  handling,  information  system  technology , 
ionospheric  propegation,  solid  state  sciences,  mlcromave 
physics  and  electronic  reliability,  maintainability  and 
compatibility. 


